Kleur bij een andere cijfer

[kees130]

Goedenavond,

Ik zou graag bij wisseling van cijfers in kolom D, een kleur (bijvoorbeeld geel) willen hebben.
Dus bepaalde cijfers wit, als dit verandert dan geel, en dan weer wit enz.
Zo moet het door heel kolom D aangepast worden.
Zie bijlage voor meer info.
Graag vba als het kan.

Groet,
Kees

 

[OctaFish]

Al naar voorwaardelijke opmaak gekeken?

 

[kees130]

Beste OctaFish,

Bedankt voor je reactie.
Voorwaardelijke opmaak zou inderdaad ook kunnen.
Hoe kan ik het daarin zetten? Ik heb aantal dingen geprobeerd, maar helaas zonder juiste resultaat.

 

[edmoor]

Dit stukje code doet dat, maar geen idee hoe je het in dat document wilt hebben.
Achter een knop? Bij het wijzigen van een cel in kolom D? Anders?

Sub ZetKleur()
    For i = 3 To 34
        wrd = Cells(i, 4)
        Klr = IIf(Klr = 65535, xlNone, 65535)
        While Cells(i, 4).Value = wrd
            Cells(i, 4).Interior.Color = Klr
            i = i + 1
        Wend
        i = i - 1
    Next i
End Sub

 

[HSV]

Voorwaardelijke opmaak.



Kan ook zo.

=IS.ONEVEN(SOM(1/AANTAL.ALS($D$3:D3;$D$3:D3)))

 

[kees130]

HSV,
Hartelijk dank. Deze voorwaardelijk opmaak doet wat ik wil.

edmoor,
Ontzettend bedankt voor deze code. Hij werkt fijn.
Ik heb een macro dat overbodige cellen verwijdert. Deze code wil ik er achteraan plakken.
Hoe kan ik het aanpassen, als ik wil dat hij dit de hele kolom doet, en stopt bij een lege cel (nu gaat hij tot 34).