Gibt es eine Möglichkeit Farben zu suchen und durch eine andere zu ersetzen?
Habe im Archiv leider nichts passendes gefunden.
Peter.
Sub Farbe()
Dim c As Range
For Each c In Selection
If c.Interior.ColorIndex = 3 Then c.Interior.ColorIndex = 5
Next
End Sub