in eine Combobox lasse ich mir Tabellenblätter einlesen in eine Listbox halt die Einträge aus den Tabellenblättern. Das klappt auch jeweils für die CB und die LB. Jetzt möchte ich gerne das die Listbox das Tabellenblatt einliest das in der Combobox ausgewählt wird. Sitze da schon eine Weile dran und meine letzte Hoffnung ist mal wieder dieses Forum. Super wäre auch wenn ich dann mit doppelklick in der Listbox die Einträge (ganze Zeile) in der jeweiligen Tabelle löschen kann. Wenn ich jetzt die Userform öffnen will bricht das Makro ab und springt in die Sub mit der ich die Userform öffnen möchte. Noch zu erwähnen wäre das alle Tabellenblätter (bis auf das Übersicht Tabellenblatt) ausgeblendet sind. Hoffe auf Eure Hilfe
Hier das was ich bis jetzt habe. Gruß Guesa
Private Sub UserForm_Activate()
Dim WS As Worksheet
Dim lRow As Long
Dim lastRow As Long
For Each WS In ThisWorkbook.Worksheets
If Not (WS.name = "A-Muster" Or WS.name = "Start" Or WS.name = "Differenz") Then
ComboBox1.AddItem WS.name
End If
Next WS
ListBox1.Clear
With ListBox1
.ColumnCount = 3
.ColumnWidths = "2cm; 2cm; 5cm;"
End With
ListBox1.Clear
lastRow = Sheets(WS).Range("B" & Sheets(WS).Rows.Count).End(xlUp).Row
' lastRow = Sheets("Test").Range("B" & Sheets("Test").Rows.Count).End(xlUp).Row
For lRow = 1 To lastRow
If WS.Cells(lRow, 3) "" Then
ListBox1.AddItem (WS.Cells(lRow, 3))
ListBox1.List(ListBox1.ListCount - 1, 0) = WS.Cells(lRow, 17)
ListBox1.List(ListBox1.ListCount - 1, 1) = Format(WS.Cells(lRow, 18), "#,##0.00 ")
ListBox1.List(ListBox1.ListCount - 1, 2) = WS.Cells(lRow, 19)
End If
Next lRow
End Sub