Zellenformatierung Listbox gleiches Format

[PetrolMaxxe]

Hallo Frank,

entweder so:

Code:

    With ListBox1
        For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
            .AddItem destinationWorksheetPrüfkontur.Cells(i, 1).Text
            .List(.ListCount - 1, 1) = destinationWorksheetPrüfkontur.Cells(i, 2)
            .List(.ListCount - 1, 2) = destinationWorksheetPrüfkontur.Cells(i, 3)
            .List(.ListCount - 1, 3) = destinationWorksheetPrüfkontur.Cells(i, 4)
        Next i
    End With

oder so:

Code:

    With destinationWorksheetPrüfkontur
        For i = 2 To Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row
            ListBox1.AddItem .Cells(i, 1).Text
            ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(i, 2)
            ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(i, 3)
            ListBox1.List(ListBox1.ListCount - 1, 3) = .Cells(i, 4)
        Next i
    End With

Prinzipiell ist .AddItem die lahmste Methode um eine Listbox zu füllen.
Das macht nur bei kleinen Datenaufkommen und max. 10 Spalten Sinn.
 
Gruß Uwe