Zelle mit Cursor farbig

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage: Befindet sich in der ersten Zeile, der Spalte in der
'gerade eine Zahl eingegeben wurde, eine Zahl als Vorgabe?
If Not Cells(1, Target.Column).Value = "" Then
'Vergleich der Eingabe mit der Vorgabe und Zuweisung der entsprechenden Schriftfarbe
With Cells(Target.Row, Target.Column)
If .Value = Cells(1, Target.Column).Value Then
'Schriftfarbe schwarz
.Font.ColorIndex = 1
ElseIf .Value < Cells(1, Target.Column).Value Then
'Schriftfarbe rot
.Font.ColorIndex = 3
Else
'Schriftfarbe grün
.Font.ColorIndex = 4
End If
End With
End If
End Sub