ich habe 2 Comboboxen, Combobox 2 soll abhängig vom Wert in Combobox 1 bestimmte Werte anzeigen.
Mit meinem Code tut sie das auch, jedoch kann ich die Werte nicht ins Auswahlfenster übernehmen...
Weiß jemand Rat?
Das ist der Code:
Private Sub Init_ComboBox1()
With ComboBox1
.Clear
.AddItem "Schule"
.AddItem "Kindergarten"
.AddItem "Praxis"
End With
End Sub
Private Sub ComboBox2_dropbuttonclick()
With ComboBox2
If ComboBox1.Value = "Schule" Then
.Clear
.AddItem "Lehrer"
.AddItem "Schüler"
Else
If ComboBox1.Value = "Kindergarten" Then
.Clear
.AddItem "ErzieherIn"
.AddItem "KiGa-Kind"
Else
If ComboBox1.Value = "Praxis" Then
.Clear
.AddItem "PatientIn"
.AddItem "Personal"
End If
End If
End If
End With
End Sub
bin für jeden Hinweis dankbar...