Office: Zellen mit VBA färben

Hallo zusammen,

habe ein merkwürdiges Problem mit Visual Basic.

Meine sub soll ein Datenblatt nach verschiedenen Suchkriterien durchleuchten und die Zellen, in denen was gefunden wurde einfärben:

For i = 1 To 1000
If endzeile(i) <> "" Then

Cells(endzeile(i), "A").Interior.ColorIndex = 4
Cells(endzeile(i), "B").Interior.ColorIndex = 4
Cells(endzeile(i), "C").Interior.ColorIndex = 4
Cells(endzeile(i), "D").Interior.ColorIndex = 4
Cells(endzeile(i), "E").Interior.ColorIndex = 4
Cells(endzeile(i), "F").Interior.ColorIndex = 4
Cells(endzeile(i), "G").Interior.ColorIndex = 4
Cells(endzeile(i), "H").Interior.ColorIndex = 4
Cells(endzeile(i), "I").Interior.ColorIndex = 4
Cells(endzeile(i), "J").Interior.ColorIndex = 4
Cells(endzeile(i), "K").Interior.ColorIndex = 4

ausgabe = ausgabe & Cells(endzeile(i), "A") & "; "

Else
Exit For
End If
Next i

Die Zeilen sollen auch nur bis Zeile K eingefärbt werden, allerdings wird momentan nur die Zelle in Spalte A eingefärbt. Auch wenn ich den Code am Anfang vertausche

Cells(endzeile(i), "B").Interior.ColorIndex = 4
Cells(endzeile(i), "A").Interior.ColorIndex = 4

wird nur Zeile A eingefärbt. Bin etwas ratlos, da der Code an anderer Stelle auch funktioniert.

Vielen Dank schonmal im Voraus :)

mfg

 

Fehler gefunden, hab die falsche sub gestartet