• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

combobox2 afhankelijk van combobox 1

Status
Niet open voor verdere reacties.
W

willie76

Gebruiker
Lid geworden
6 nov 2010
Berichten
124
Forumleden,

Ja, ik weet het, een zoveelste vraag over de afhankelijkheid van comboboxen......
Maar ik kom er na 2 dagen werk echt zelf niet uit :confused:

Ik wil dat de inhoud van combobox2 afhankelijk wordt van de keuze in combobox1.

Afhankelijk wat je in combo1 kiest moet ie resp kiezen voor kolom AG2:AG22, AH2:AH32 of AI2:AI11

zelf dacht ik aan
Code: 
Private Sub ComboBox2_Change()
If "APLnummer" = 1 Then ComboBox2.ListFillRange = "Oesophagus"
If "APLnummer" = 2 Then ComboBox2.ListFillRange = "Keloid"
If "APLnummer" = 3 Then ComboBox2.ListFillRange = "Cylinder"
End Sub

....maar dat werkt dus niet......

wie kan me helpen ???
Na 2 dagen zie ik de oplossing niet meer......:evil:

Thanks alvast

p.s. het moet in vba, en niet in een userform, aangezien het runnen van macro's op mn werk niet altijd is toegestaan.......

Bekijk bijlage Formulier.xls
 
Laatst bewerkt:
Willie,

Code: 
Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case 0
   ComboBox2.List = Range("AG2:AG22").Value
Case 1
   ComboBox2.List = Range("AH2:AH32").Value
Case 2
   ComboBox2.List = Range("AI2:AI11").Value
 End Select
End Sub

Zo kan het ook nog, maar aangezien "Cylinder2" óók in Cobobox1 aanwezig is en niet in Range("AG1:AI1"), heb ik voor de bovenste optie gekozen.

Code: 
Private Sub ComboBox1_Change()
Dim c As Range
With ComboBox1
Set c = Range("AG1:AI1").Find(.List(.ListIndex))
If Not c Is Nothing Then
 ComboBox2.List = c.Offset(1).Resize(c.End(xlDown).Row - 1).Value
Else
   MsgBox .List(.ListIndex) & vbLf & vbLf & "is niet gevonden in AG1:AI1"
    ComboBox2.Clear
  End If
 End With
End Sub
 
Laatst bewerkt:
Thx Harry,

Oplossing 1 werkte al, ik was er nog niet toe gekomen om een 4e kolom aan te maken.......
Maar de code werkte prima en ik kon em zelf verder uitbreiden.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan