Hallo Zusammen,

ich habe mal versucht selber eine Schleife via VBA hinzubekommen.

Klappt leider noch nicht so...

Ich möchte mit dem Makro die Zeilen in Spalte F (bis letzte Zeile) nach dem Wert 1000 prüfen.

Wenn 1000 drin steht soll dann in der selben Zeile in Spalte K ein Kommentar stehen und der Bereich von F bis K soll grün markiert werden.

Leider bekomme ich die Fehlermeldung, "Application-defined or object-defined error". Habe schon etwas rumprobiert, leider bekomme ich es nicht zum Laufen.

Kann mir jemand weiterhelfen?

Ich bin dankbar für jegliche Art von Hilfe!

Viele Grüße

Marie-Sophie

PS:Mein Code sieht so aus:

Sub TestSchleife()

Dim LetzteZeile As Long
LetzteZeile = Sheets("Tabelle1").Cells(Rows.Count, 6).End(xlUp).Row
Dim i As Long

For i = 1 To LetzteZeile

If Sheets("Tabelle1").Range(Cells(i, 6)) = "1000" Then

Sheets("Tabelle1").Range(Cells(i, 11)).FormulaR1C1 = "Kommentar"
Sheets("Tabelle1").Range(Cells(i, 11)).Font.Name = "Arial"
Sheets("Tabelle1").Range(Cells(i, 6), Cells(i, 11)).Interior.ColorIndex = 43


End If

Next i

End Sub