habt ihr eine Idee, wie ich in allen, nicht rot geschriebenen Zellen im Bereich C2:Z1000, die Schriftfarbe in schwarz ändern kann, also dass die roten Zellen rot bleiben?
Vielen Dank für Euren Rat.
Jenny
Sub xxx()
Dim rng
Application.ScreenUpdating = False
For Each rng In Range("C2:Z1000")
With rng.Font
If .Color 255 Then .Color = 0
End With
Next
End Sub