ComboBox koppelen

[wieter]

Met onderstaande code trachtte ik 2 comboboxen aan elkaar te koppelen.

Private Sub WorkBook_Open()
UserForm1.Show
UserForm1.ComboBox1.List = Array("Leeuwarden", "Heerenveen")
If UserForm1.ComboBox1.Value = "Leeuwarden" Then
UserForm1.ComboBox2.List = Array("School1", "school2")
End If
If UserForm1.ComboBox1.Value = "Heerenveen" Then
UserForm1.ComboBox2.List = Array("School3", "school4")
End If
End Sub

Het is de bedoeling dat combobox2 gevuld wordt met data, afhankelijk van de waarde in combobox1

 

[edmoor]

Zo zien de comboboxen dus nooit een wijziging. Doe het eens zo:

Private Sub ComboBox1_Change()
    Select Case UserForm1.ComboBox1.Value
        Case "Leeuwarden"
            UserForm1.ComboBox2.List = Array("School1", "school2")
        Case "Heerenveen"
            UserForm1.ComboBox2.List = Array("School3", "school4")
    End Select
End Sub

Private Sub UserForm_Initialize()
    UserForm1.ComboBox1.List = Array("Leeuwarden", "Heerenveen")
End Sub

De UserForm1.Show in Workbook_Open kan blijven staan. De rest kan weg.

 

[wieter]

Bedankt Ed,
Ik had ondertussen ook een oplossing gevonden.
Wel niet zo compact als die van jou.
Toch bedankt voor je bereidwillige hulp.

 

[edmoor]

Graag gedaan
Wil je dan ook even je post als opgelost markeren?

 

[snb]

Iets compacter (maar even effektief):

Private Sub ComboBox1_Change()
    if combobox1.listindex>-1 then ComboBox2.List = Array(Array("School1", "school2"),Array("School3", "school4"))(combobox1.listindex)
End Sub

Private Sub UserForm_Initialize()
    ComboBox1.List = Array("Leeuwarden", "Heerenveen")
End Sub

 

[wieter]

@SNB
Zoals steeds verbaasd over de syntax die jij gebruikt.
Zeker de moeite om uit te testen en te doorgronden.
Bedankt