Listbox füllt listbox
25.09.2018 07:02:56
Antonio
auf eine userForm habe ich 2 Listbox.
Im Woorkbook habe ich mehrere Tabelle.
Im LB2 werden die Tabelle aufgelistet.
Im LB1 sollen die werte aus der Tabelle aufgelistet werden.
Mit diesem Code fülle ich die Tabellen in LB2
Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ListBox2.AddItem Sheets(i).Name
Next i
End Sub
Wie kann ich durch klicken auf ein Tabellen Namen die jeweiligen Eiträge auflisten?
Habe im Forum nichts gefunden und google liefert nur LB füllen.
Habe mir was zusammen gebastelt:
Private Sub ListBox2_Click()
Dim lzeile As Integer
Dim a As Integer
ListBox1.Clear
lzeile = Tabelle2.Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To lzeile
ListBox1.AddItem Tabelle2.Cells(a, 1).Value
Next a
End Sub
Wie kann ich den Tabellenname mit einer Variable als LB.selecteditem ersetzen?
Vielen Dank in Voraus
Antonio