ich versuche den untenstehenden Code so umzustellen, das er nicht die Zellen A1:A9 sondern den Bereich A : H aus allen in der Arbeitsmappe vorhandenen Arbeitsblättern ausliest. Ich schaffe es aber nicht.
Wäre mir jemand behilflich?
Danke und Gruß
Volker
Sub sbFill()
Dim Blatt As Worksheet, liRow As Integer
Sheets(1).ListBox2.Clear
For Each Blatt In ThisWorkbook.Sheets
For liRow = 1 To 9
Sheets(1).ListBox2.AddItem Blatt.Range("A" & liRow).Value
Next
Next
End Sub