Kode til skift af colorindex

Sub LavFarveOm()
For Each c In Range("A1:I56")
If c.Interior.ColorIndex = 9 Then c.Interior.ColorIndex = 3
Next c
End Sub

Hej Morten
Jeg glemte at nævne at i de celler hvor colorindex = 9 skal skriftsfarven ændres til samme farve (usynlige)

Jeg kan ikke afprøve det hvor jeg er nu, men kan man så gøre sådan her?

Sub LavFarveOm()
For Each c In Range("A1:I56")
If c.Interior.ColorIndex = 9 and Selection.Font.ColorIndex = 9 Then c.Interior.ColorIndex = 3 and Selection.Font.ColorIndex = 3
Next c
End Sub

Ok, men det er kun hvis begge betingelser er opfyldt at farven/fontfarven skal ændres.

Som jeg læser koden udskiftes cellefarven først.

I andet afsnit udskiftes fontfarven, men dette er så på alle celler med fontcolor 9 og ikke kun på dem der tidligere havde cellefarven 9
Eller hvad??

Beklager hvis jeg er vanskelig..

De virker begge 2!
Send et svar så får du dine point.
Tak for hjælpen

Det var godt ;-)
Velbekomme