Abhängige Dropdowns in 2 Userforms
David
ich hoffe jemand kann mir bei meinem Problem weiterhelfen.
Ich habe eine Userform auf der eine Dropdown bzw. Combobox eine Auswahl an Daten zur Verfügung stellt.
Ich möchte gerne, dass man auf dieser Userform aus dieser Combobox einen bestimmten Datensatz auswählen kann und man dadurch auf der nächsten Userform und der dortigen Combobox nur noch bestimmte Dateien zur Auswahl stehen. D.h. man wählt einen Wert aus der 1. Combox auf der 1. Userform aus mit einem Klick auf einen "Weiter" -Button wird die 1. Userform versteckt und es erscheint die 2te Userform, wo dann die Combox mit der abhängigen Auswahl zur Verfügung stehen soll.
Doch wenn ich in meinem Code die Combobox auf der 2 Userform ansprechen will, funktioniert das nicht.
egal ob ich ihm sage Userform2.Combobox2.Clear oder Userform2.Combobox2. ListIndex = 0.
Hier mal der komplette Code:
Zur Erläuterung: Userform1 = usf_RichtpreisgenS1, Userform2 = usf_RichtpreisgenS2, Combobox1 = cobo_Produktbranche, Comobox2= cobo_hinterlegtebudegts
Private Sub cobo_Produktbranche_Change()
' geschrieben von P@ulchen, angepasst von Klaus-Dieter
Dim col As New Collection
Dim iRow As Long, ALetzte As Long
usf_RichtpreisgenS2.cobo_hinterlegtebudgets.Clear
ALetzte = IIf(IsEmpty(Sheets("Datenbank_hinterlegteBudgets").Range("E65536")), Sheets(" _
Datenbank_hinterlegteBudgets").Range("E65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To ALetzte
If Not IsEmpty(Sheets("Datenbank_hinterlegteBudgets").Cells(iRow, 2)) Then
If Sheets("Datenbank_hinterlegteBudgets").Cells(iRow, 2) = _
cobo_hinterlegtebudgets. _
_
_
_
Value Then
col.Add Sheets("Datenbank_hinterlegteBudgets").Cells(iRow, 2), Sheets(" _
Datenbank_hinterlegteBudgets").Cells(iRow, 2)
usf_RichtpreisgensS2.cobo_hinterlegtebudgetsAddItem Sheets(" _
Datenbank_hinterlegteBudgets").Cells(iRow, 5)
End If
End If
Next iRow
On Error GoTo 0
Call Sortieren
usf_RichtpreisgenS2.cobo_hinterlegtebudgets.ListIndex = 0
End Sub
der Code befindet sich im Modul von Userform1