ich möchte mit Hilfe eines Arrays eine zweistufige Gliederung in einer ListBox wiedergeben. Soweit funktioniert die Wiedergabe auch einwandfrei, nur hab ich in der Gliederung, die in der Range auf dem WS Vorlage steht, einige leere Zeilen. Könnte mir jemand dabei helfen, die leeren Zeilen, evtl. mittels Schleife, nicht mit in den Array und in die ListBox zu übernehmen?
Private Sub UserForm_Initialize()
Dim arrListe
With ThisWorkbook.Worksheets("Vorlage")
zeile = .Cells(Rows.Count, 4).End(xlUp).Row
arrListe = .Range(.Cells(12, 4), .Cells(zeile, 5))
Me.ListBox1.List = arrListe
Erase arrListe
End With
End Sub
Danke und liebe Grüße,
Julia