voorwaardelijke opmaak op celwaarde 0

[ErikdV]

Ik heb een kolom waarin ik met VBA voorwaardelijke opmaak wil toepassen.
Ik wil alle cellen met de waarde 0 de kleur groen geven.
Ik heb hiervoor de volgende VBA-code

Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=0"
With Selection.FormatConditions(1)
.Font.Bold = True
.Interior.Color = 5296274
.Interior.TintAndShade = 0
.StopIfTrue = False
End With

Als ik deze code gebruik krijgen ook alle lege cellen een groene kleur.
Waarschijnlijk zit er een fout in het formula-deel.
Hoe kan ik dit oplossen?

 

[Cobbe]

Je kan ook deze gebruiken:

Sub cobbe()
For Each cl In Selection
 cl.Interior.ColorIndex = xlNone
  If cl = 0 And cl <> "" Then
    cl.Font.Bold = True
    cl.Interior.Color = 5296274
    cl.Interior.TintAndShade = 0
  End If
 Next
End Sub

 

[ErikdV]

Dit lijkt mij geen voorwaardelijke opmaak, maar een eenmalige opmaak. Klopt dat?
Ik wil elke keer als in een cel in het bereik 0 wordt ingevuld, de cel een kleur geven.
Ik heb ook 7 andere waarden, die ook een aparte kleur moeten krijgen zodra ze worden ingevuld.
Eenmalig is dus geen optie.

 

[Cobbe]

Waarom zou dit eenmalig zijn?
Ik heb het in een sub gezet maar de code werkt perfect ook in een change-event
Selection wordt dan range("......
en je andere kleuren en voorwaarden kan je er zo tussenzetten.

 

[ErikdV]

Ik ben nog niet bekend met change-event. Ik heb wel even naar de syntax in VBA-help gekeken en ik denk dat ik er wel wat mee kan.
Ik ga er een keer mee stoeien.

Overigens heb ik mijn VBA-code een klein beetje aangepast :
Formula1:="=0" wordt Formula1:="=""0"""
Nu lijkt het wel te werken.