Cel kleur meegeven

[JanWL]

Hallo allen,

De onderstaande VBA maakt cellen in desbetreffende kolom "groen" dat gaat allemaal goed. Probleem is echter op het moment dat ik waarden uit de cel haal dan blijft de cel groen. Weet iemand hoe ik de cel wit kan laten worden op het moment dat ik de waarde uit de cel haal(dmv. delete, backspace)?

Private Sub Worksheet_Change(ByVal Target As Range)

ActiveSheet.Unprotect
If Target.Column < 6 Or Target.Column > 6 Then Exit Sub

Range("e" & Target.Row).Activate

With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With

End Sub

Alvast bedankt.

Mvg.

JanWL

 

[Wigi]

Waarom geen Voorwaardelijke Opmaak? Dat is duidelijk efficiënter dan VBA code in te stellen.

 

[JanWL]

Hallo Wigi,

Omdat als ik bijv. Cel A1 een waarde geef moet B1 groen worden.

Of kan dit ook met voorwaardelijke opmaak?

Grtz.

JanWL

 

[Wigi]

Ja, geef een formule in bij Voorwaardelijke opmaak. En gebruik niet: Celwaarde is.

 

[JanWL]

Wat zou hier een goede formule zijn?

Ik kom er gewoonweg even niet uit. Zit denk ik te moeilijk te denken.

Alvast bedankt.

Mvg.

JanWL

 

[Wigi]

Bijvoorbeeld

=A1<>0