Zelle färben
leo
Danke gruß leo
Sub umfärben()
Dim rC As Range
For Each rC In ActiveSheet.Range("A1:F100")
if rC.Interior.ColorIndex = 3 then rC.Interior.ColorIndex = NeuFarbe
Next
End
Sub
Range und NeueFarbe mußt Du anpassen.
Gruß Uppe