Ich möchte einen Zellenänderung farbig markieren, indem sich die Schriftfarbe ändert. Aber wenn eine Zelle keinen Inhalt hat und ich schreibe dort erstmalig rein, dann soll die Schriftfarbe schwarz sein. Bei Änderung eines bestehenden Inhaltes dann die Schriftfarbe rot. Hier mein Ansatz:
Sub Worksheet_Change(ByVal Target As Range)
If Not IsEmpty(Cells.Value) Then
Target.Font.Color = RGB(255, 0, 0)
Else
ActiveCell.Font.Color = RGB(150, 150, 150)
End If
End Sub
Nur er macht jetzt alle rot. Wo ist mein Fehler?