Moin, moin
folgendes Problem plagt mich.
Im Listenfeld würde ich gern die Felder ausrichten, was fehlt da noch ?!
For InI = 2 To 119
If Worksheets("Akku-Daten").Cells(InI, 1) (?) "" Then
If Worksheets("Akku-Daten").Cells(InI, 19) (?) 0 Then
ListBox1.AddItem .Range("A" & InI)
ListBox1.List(InZeile, 0) = Worksheets("AKKU-Daten").Range("A" & InI)
ListBox1.List(InZeile, 1) = Worksheets("AKKU-Daten").Range("C" & InI)
ListBox1.List(InZeile, 2) = Worksheets("AKKU-Daten").Range("N" & InI)
ListBox1.List(InZeile, 3) = Format(Worksheets("AKKU-Daten").Range("O" & InI), "#0 g")
ListBox1.List(InZeile, 4) = Format(Worksheets("AKKU-Daten").Range("P" & InI), "#0 A")
ListBox1.List(InZeile, 5) = Format(Worksheets("AKKU-Daten").Range("Q" & InI), "#0 mAh")
ListBox1.List(InZeile, 6) = Format(Worksheets("AKKU-Daten").Range("R" & InI), "h:mm:ss;@")
ListBox1.List(InZeile, 7) = Format(Worksheets("AKKU-Daten").Range("S" & InI), "#,##0.00 €")
InZeile = InZeile + 1
End If
End If
Next InI
End With