und noch eine frage
ich hab hier von jemand folgendes VBA geschrieben bekommen:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zelle As Range
For Each zelle In Range(Target.Address)
With zelle
Select Case .Value
Case "3"
.Interior.ColorIndex = 3
.Font.ColorIndex = 3
Case "1"
.Interior.ColorIndex = 10
.Font.ColorIndex = 10
Case "2"
.Interior.ColorIndex = 6
.Font.ColorIndex = 6
Case "4"
.Interior.ColorIndex = 1
.Font.ColorIndex = 1
Case ""
.Interior.ColorIndex = xlNone
.Font.ColorIndex = x1None
End Select
End With
Next zelle
welches mir bei der eingabe von 1234 die farben der schrift und des feldes ändert, kann man dieses so umschreiben, dass das VBA nur dann in kraft trifft, wenn in schwarz geschrieben wird? also ich meine wenn ich jetzt in rosa 1 schreibe dass dann die 1 stehen bleibt?
danke schonmal