Hallo,

ich bin noch komplett neu und tue mich leider sehr schwer damit.

Vielleicht könnt ihr mir ja helfen.

Ich habe eine UserForm und in dieser UserForm ist eine ListBox die ich befüllen möchte mit 2 Spalten.

Das Funktioniert auch soweit ganz gut, leider werden mir aber auch die Leeren Zeilen mit angezeigt.

Vielleicht könnt Ihr mir ja helfen, wie ich das in meinem Code einbauen kann, dass die Leeren Zeilen nicht mit angezeigt werden.

Mein aktueller Code ist:

Private Sub UserForm_Initialize()

    'ListBox befüllen       'Additem
    
    ListBox1.ColumnCount = 2
    ListBox1.ColumnWidths = "70;80"
    
    Dim Zeile As Long
    
    For Zeile = 1 To Datenbank.ListObjects("Datenbank_PersDat").DataBodyRange.Rows.Count
        ListBox1.AddItem Datenbank.ListObjects("Datenbank_PersDat").DataBodyRange(Zeile, 1)
        ListBox1.List(ListBox1.ListCount - 1, 1) = Datenbank.ListObjects("Datenbank_PersDat").DataBodyRange(Zeile, 2)
    Next Zeile

End Sub