Wieso kommt im unten folgenden Code der Laufzeitfehler 1004 " Die Methode "Range" für das Objekt GLOBAL ist fehlgeschlagen?
Ich komme einfach nicht drauf da ich glaub heute schon zu viel Code geschrieben habe :D
Hoffe ihr könnt mir helfen, Danke schonmal im voraus
With ListBox1
.ColumnCount = 5
.ColumnWidths = "23;120;90;80;40"
.AddItem 'leere Zeile 1
.List(.ListCount - 1, 0) = "BA"
.List(.ListCount - 1, 1) = Range("D" & i).Value
.List(.ListCount - 1, 2) = Range("E" & i).Value
.List(.ListCount - 1, 3) = "tage"
.List(.ListCount - 1, 4) = Range("AA" & i).Value
.AddItem 'leere Zeile 2
.List(.ListCount - 1, 0) = "Zeile 2"
.List(.ListCount - 1, 1) = "Zeile 2"
.List(.ListCount - 1, 2) = "Zeile 2"
.List(.ListCount - 1, 3) = "Zeile 2"
.AddItem , 1 'leere Zeile zwischen 1 und ehemals 2
.List(1, 0) = "Zeile 2 neu"
.List(1, 1) = "Zeile 2 neu"
.List(1, 2) = "Zeile 2 neu"
.List(1, 3) = "Zeile 2 neu"
End With
|