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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen