Cel kleur herstellen

[Tommy1]

Hallo allemaal,
Ik heb een macro op dit forum gevonden waarvan ik dacht dat ik hem gebruiken kon.
Hij doet wel zijn ding, n.l een cel een kleur geven bij een bepaald getal.
Maar als ik dat getal weer weg haalt blijft de celkleur staan.
Wat moet ik erbij typen om de kleur (geen kleur) zoals het eerst was weer te krijgen?

Dim x As Range
For Each x In ActiveSheet.Range("E13:E27,G13:G27")
With x
Select Case .Value

Case Is = 180
.Interior.ColorIndex = 3 'geel'
Case Is = 160
.Interior.ColorIndex = 4 'groen'
Case Is = 120
.Interior.ColorIndex = 5 'blauw'

End Select
End With
Next
End Sub


Gr. Tommy

 

[Wigi]

Dim x As Range
For Each x In ActiveSheet.Range("E13:E27,G13:G27")
    With x
        Select Case .Value

        Case Is = 180
            .Interior.ColorIndex = 3    'geel'
        Case Is = 160
            .Interior.ColorIndex = 4    'groen'
        Case Is = 120
            .Interior.ColorIndex = 5    'blauw'
        Case Is = 0
            .Interior.ColorIndex = xlNone    'niets

        End Select
    End With
Next

Graag code tags gebruiken in het vervolg aub.

Wigi

 

[Tommy1]

Hallo Wigi,

Ik had die code al eerder geprobeerd. Na dat ik "180" gedelete had bleef de celkleur rood.
En nu weer blijft de celkleur rood.

Gr. Tommy

 

[Wigi]

Inderdaad je moet die macro opnieuw laten lopen voordat de kleuren hersteld worden.

 

[Tommy1]

Wggi,

Sorry, maar nu probeer het weer.
En het werkt!
Ik had de waarden gedelete door middel van een andere macro.
Daar moet ik gaan zoeken.

Ik zet hem op opgelost.

Bedankt voor je reactie,

Gr. Tommy