ich benötige mal wieder euere Hilfe. Ich würde gerne abhängige dynamische Drop-Downs-Menüs in einer Userform erstellen. Bis jetzt bin ich auch ganz gut voran gekommen.
Meine Code lauten für das erste Drop-Down-Menü wie folgt:
Private Sub UserForm_Initialize()
'fill cmb
Sheets("AusleihenW").Activate
For Each blah In Range("A2:A100")
If blah.Offset(0, 3) = "True" Then
UserForm5.cmb7.AddItem blah
End If
Next blah
Sheets("Dashboard").Activate
End Sub
Hier habe ich das Problem, dass das Drop-Down Menü doppelte Werte anzeigt und meine Kenntnisse reichen nicht aus um diese zu verhindern. Könnt ihr mir dabei helfen ?
und für mein zweites Drop-Down-Menü sieht der Code wie folgt aus:
Private Sub cmb7_AfterUpdate()
Sheets("AusleihenW").Activate
For Each blah In Range("B2:B100")
w = cmb7.Value
If blah.Offset(0, -1) = w Then
UserForm5.cmb8.AddItem blah
End If
Next blah
Sheets("Dashboard").Activate
End Sub
Dies funktioniert auch, jedoch wenn ich das erste DropDown-Menü wieder anwähle, stehen auch hier alle Werte doppelt.
Eventuell wäre vor dem Füllen ein Reset- des Drop Down-Menüs die Lösung, jedoch kenne ich auch hier den Code nicht.
Ich hoffe ihr könnt mir helfen.
MFG Hopeless