Userform - 2 Listbox - 2 Tabellenblätter
24.01.2025 12:52:37
vba-marc
Ich habe eine Userform mit Listbox1 und Listbox 2.
Listbox1 soll die Daten per RowSource aus dem Tabellenblatt ("Tabelle1") und Listbox2 aus dem Tabellenblatt2 ("Tabelle2") anzeigen.
Leider wird in beiden ListBox'es nur der Inhalt aus Tabellenblatt1 ausgelesen. Wo steckt der Wurm drin?? Bin für Hinweise oder einen anderen Lösungsansatz dankbar.
Sub UserForm_Initialize()
lastzeile = Worksheets("Tabelle1").Cells(20, 1).End(xlUp).Row
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
ListBox1.RowSource = Tabelle1.Range("A2:H" & lastzeile + 2).Address
ListBox1.ColumnWidths = "1,4cm;2,4cm;4,4cm;3,4cm;3,4cm;3,4cm;1,5cm"
'Listbxo2
letztezeile = Worksheets("Tabelle2").Cells(20, 1).End(xlUp).Row
ListBox2.ColumnCount = 7
ListBox2.ColumnHeads = True
ListBox2.RowSource = Tabelle2.Range("A2:H" & letztezeile + 2).Address
ListBox2.ColumnWidths = "1,4cm;2,4cm;4,4cm;3,4cm;3,4cm;3,4cm;1,5cm"
End Sub
Anzeige