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
|