wie kann ich nur für die Zellen in der Markierung nur die Zelleninhalte die mit Schriftfarbe rot (Font.ColorIndex = 3) dargestellt sind in Schriftfarbe blau (Font.ColorIndex = 5) ändern?
Vielen Dank im Voraus.
Liebe Grüße,
Selma
Sub schriftfarbe_ändern()
Dim rng As Range
For Each rng In Selection
If rng.Font.ColorIndex = 3 Then rng.Font.ColorIndex = 5
Next rng
End Sub
mfG
Ingo Christiansen
Sub FarbeÄndern()
Dim Zelle As Range
For Each Zelle In Selection
If Zelle.Font.ColorIndex = 3 Then Zelle.Font.ColorIndex = 5
Next
End Sub
Gruß, Daniel