Hallo Community,
ich möchte eine Listbox mit vielen Spalten füllen und verwende dafür folgende Schleife. Leider finktioniert diese nur, wenn ich den letzten .list Befehl weglasse. Liegt es daran, dass der Listcount keine zweistelligen Zahlen kennt?
For i = 1 To LetzteZeile
LIB.AddItem
LIB.List(LIB.ListCount - 1, 0) = Worksheets("Daten").Cells(i, 25).Value
LIB.List(LIB.ListCount - 1, 1) = Worksheets("Daten").Cells(i, 1).Value
LIB.List(LIB.ListCount - 1, 2) = Worksheets("Daten").Cells(i, 2).Value
LIB.List(LIB.ListCount - 1, 3) = Worksheets("Daten").Cells(i, 3).Value
LIB.List(LIB.ListCount - 1, 4) = Worksheets("Daten").Cells(i, 4).Value
LIB.List(LIB.ListCount - 1, 5) = Worksheets("Daten").Cells(i, 6).Value
LIB.List(LIB.ListCount - 1, 6) = Worksheets("Daten").Cells(i, 24).Value
LIB.List(LIB.ListCount - 1, 7) = Worksheets("Daten").Cells(i, 11).Value
LIB.List(LIB.ListCount - 1, 8) = Worksheets("Daten").Cells(i, 13).Value
LIB.List(LIB.ListCount - 1, 9) = Worksheets("Daten").Cells(i, 14).Value
LIB.List(LIB.ListCount - 1, 10) = Worksheets("Daten").Cells(i, 26).Value
Next i
Könnt Ihr mir helfen!?
Vielen Dank und beste Grüße
Alex