Hallo,

ich möchte gerne den Wert einer Zelle überprüfen und wenn der Wert nicht einem bestimmten entspricht ("J"), dann soll die Zelle nebendran einen anderen Wert ("inaktiv") bekommen.
Das soll in 300 Zeilen geschehen. Mein Entwurf:

Dim Zeile As Integer

For Zeile = 1 To 300
Set curcell = Worksheets("Tabelle1").Cells(Zeile, "I")
If (curcell.Value) = "J" Then
Set curcell = Worksheets("Tabelle1").Cells(Zeile, "J")
curcell.Select
ActiveCell.FormulaR1C1 = "inaktiv"
End If
Next

Wo ist der Fehler??