cellen een kleur geven met VBA

[pasan]

hallo

mijn probleem is het volgende
thuis werk ik met office 2010 maar diegene voorwie ik een bestandje maak werkt met office 2000
ik heb een voorwaardelijke opmaak van 5 verschillende opmaak aan de hand van 5 formules
maar zoals bekend kan je in office 2000 maar 3 kleuren toepassen
ik heb een voorbeeld bestandje geplaatst met de voorwaardelijke opmaak die ik dus heel graag via vba code voor office 2000 zou willen laten werken

groet

Pasan:thumb:

 

[Wigi]

Zo:

Sub kleurtjes()

    For Each Rng In [J5:J21]
    
        Select Case True
        
            Case Len(Rng.Value) = 0, Rng.Offset(, 2).Value = True: 'doe niets
            Case Date - Rng.Value >= 21: Rng.Interior.ColorIndex = 3
            Case Date - Rng.Value >= 14: Rng.Interior.ColorIndex = 46
            Case Date - Rng.Value >= 7: Rng.Interior.ColorIndex = 6
        
        End Select
    
    Next

End Sub

Wigi

 

[pasan]

dank je wel Wigi voor je reactie zal je code vanmiddag gaan uitproberen

groet

Pasan

 

[pasan]

vraag gaat op opgelost Wigi bedankt