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
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