lese meine Listbox folgendermassen ein:
With Me.ListBox2
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "1,5cm;0cm;0cm;6cm"
.RowSource = "Stammdaten!A2:D500" '##Personalnummer und Name in Userform einlesen##
End With
Nun möchte ich den Code unten anpassen so das nur die eigelesen werden, wo ich die Auswahl in der Combobox getroffen habe. Funktioniert aber nicht....Markiert mir Listbox2 clear gelb un sagt nicht genau bezeichneter Fehler
Kann mir da jemand helfen?
Gruß Michael
Private Sub ComboBox3_Change()
Dim liZeile As Integer
liZeile = 1
ListBox2.Clear
If ComboBox3.Value = "Alle_Abteilungen" Then
ListBox2.Clear 'Zuerst einmal die Liste leeren
lZeile = 2 'Start in Zeile 2, Zeile 1 sind ja die Überschriften
'Schleife solange etwas in der dritten Spalte in Tabelle 1 drin steht
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
'Aktuelle Zeile in die ListBox eintragen
ListBox2.AddItem Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
lZeile = lZeile + 1 'Nächste Zeile bearbeiten
Loop
End If
liZeile = liZeile + 1
Do Until Tabelle1.Range("I" & liZeile).Text = ""
If ComboBox3.Text = Tabelle1.Range("I" & liZeile).Text Then
ListBox2.AddItem Tabelle1.Range("A" & liZeile).Value
End If
liZeile = liZeile + 1
Loop
'############################ Lädt die Anzahl der Mitarbeiter in den Abteilungen in die _
Textbox #################################################################
If ComboBox3.ListIndex > -1 Then
TextBox1.Text = Worksheets("Altersstrucktur").Cells(ComboBox3.ListIndex + 2, 7)
TextBox2.Text = Worksheets("Altersstrucktur").Cells(ComboBox3.ListIndex + 2, 8)
TextBox3.Text = Worksheets("Altersstrucktur").Cells(ComboBox3.ListIndex + 2, 9)
Else
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
End If
End Sub