Macro Kleur cellen op basis van waardes

[dickbeverdam]

Hoi,

Ik zou graag een macro willen, welke op basis van getallen automatisch de achtergrondkleur van de cellen aanpast.
(let op geen voorwaardelijke opmaak, maar echt in VbA)

bijgevoegd een excelblad waarin het staat uitgelegd.

Ben benieuwd!

grt
Dick

 

[dinoshop]

Bekijk bijlage 158755

 

[Warme bakkertje]

Dit is de basis. Wil je het 'on the fly' dan maak je gebruik van het Worksheet_Change event.

Sub tst()
    For Each cl In Sheets("Sheet1").Range("B1:B5")
        Select Case cl.Value
            Case 0 To 10
                cl.Interior.ColorIndex = 43
            Case 11 To 25
                cl.Interior.ColorIndex = 18
            Case 26 To 50
                cl.Interior.ColorIndex = 24
            Case 51 To 100
                cl.Interior.ColorIndex = 40
            Case Is > 100
                cl.Interior.ColorIndex = 56
        End Select
    Next
End Sub

 

[dickbeverdam]

dank je wel... We zijn er helemaal uitgekomen!