If Then Como-/Listbox
08.05.2016 11:14:17
Michael
ich stehe mal wieder vor einem für mich unlösbarem Problem. Ich fülle folgendermassen eine Combobox mit Abteilungen.
Private Sub UserForm_Initialize()
Dim lngZ As Long
For lngZ = 1 To Worksheets(7).Range("A65536").End(xlUp).Row
Me.ComboBox3.AddItem Worksheets(7).Cells(lngZ, 1).Text
Me.ComboBox3.ListIndex = 0
Next
End Sub
Nun möchte ich, wenn ich eine Abteilung wähle, sich die Listbox1 mit dem Namen und die Listbox2 mit den dazugehörigen Personalnummern aus der Tabelle1 Spalte 3 und 1 füllt.
Zusätzlich habe ich oben in Worksheets(7)zu den Abteilungen Alle_Mitarbeiter stehen, wenn ich dieses anwähle sollen alle eingelesen werden.
kann mir da jemand weiterhelfen?
Gruß Michael