Zellenformatierung Listbox gleiches Format

[PetrolMaxxe]

so:

Code:

    with ListBox1
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            .AddItem .Cells(i, 1).Text
            .List(.ListCount - 1, 1) = .Cells(i, 2)
            .List(.ListCount - 1, 2) = .Cells(i, 3)
            .List(.ListCount - 1, 3) = .Cells(i, 4)
        Next i
    end with

Gruß Uwe