Guten Tag Zusammen
Ich suche eine Lösung für folgende Funktion im VBA.
ich Habe 2 Dropdowns (ComboBox)
Dropdown 1 = Typenbezeichnung (im Code DdFGTyp)
Dropdown 2 = Geräte Auswahl (im Code DdFG)
Beide Dropdowns befinden sich auf dem selben VBA Formular.
Nun Folgendes:
Wähle ich im Dropd.1 A an sollte im Dropd.2 die möglichkeiten AA, AB, ADI ... erscheinen.
Wähle ich im Dropd.1 B an sollte im Dropd.2 die möglichkeiten BO, BI, BBL ... erscheinen
Momentan hab ich diesen Code:
Private Sub UserForm_Initialize()
With Gewerk.DdFgTyp
.AddItem "A"
.AddItem "B"
End With
If Gewerk.DdFgTyp = A Then
With Gewerk.DdFG
.AddItem "AA"
.AddItem "AB"
.AddItem "ADI"
End With
ElseIf Gewerk.DdFgTyp = B Then
With Gewerk.DdFG
.AddItem "BO"
.AddItem "BI"
.AddItem "BBL"
End With
End If
End Sub
Nun wird mir aber immer den inhalt von A angezeigt, was klappt nicht ?
Vielen Dank für eure Hilfe
Gruss
|