Ergänzung zum Makro
08.05.2014 17:44:40
walter
steh irgenwie auf dem SCHLAUCH.
Ich möchte gern die Variable einbringen, leider wird die Listbox
bei der Zeile 4 nicht eingelesen.
Zeile 1+2 ist in Ordnung.
Vielleicht kann mal jemand schauen, welchen Bock ich geschossen habe.
Danke im Voraus,
mfg walter
Dim sBlattname As String
sBlattname = ActiveSheet.Name
Dim LoLetzte1 As Long
Zeile1 ' LoLetzte1 = Sheets("Datenbank").Cells(Rows.Count, 1).End(xlUp).Row
Zeile2 ' Me.ListBox1.RowSource = "Datenbank!A3:AL" & LoLetzte1
Zeile3 LoLetzte1 = Sheets(sBlattname).Cells(Rows.Count, 1).End(xlUp).Row
Zeile4 Me.ListBox1.RowSource = "sBlattname!A3:AL" & LoLetzte1