voorwaardelijke celopmaak

[Gerald Baalhuis]

Ik wil graag een cel een bepaalde kleur geven zolang een andere cel een bepaalde waarde heeft.
Bijvoorbeeld:

Als in cel a1 het getal 1 staat, moet cel b1 blauw worden
Als in cel a1 het getal 2 staat, moet cel b1 groen worden
Als in cel a1 het getal 3 staat, moet cel b1 geel worden
Als in cel a1 het getal 4 staat, moet cel b1 oranje worden
Als in cel a1 het getal 5 staat, moet cel b1 rood worden

Nu kan dat tot 3 nivo's in Voorwaardelijke opmaak onder "Opmaak" en ik heb een VBA programaatje gehad waarin naar een zgn. Case gekeken wordt ipv een getal.

vraag 1. Hoe krijg ik dat VBA gebeuren in het door mij gemaakte werkblad
Vraag 2. Waarin moet ik die regels wijzigen om getallen ipv tekst te 'lezen'?

Hieronder een geplakt VBA scriptje

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

With Target

Select Case .Value
Case Is = "ROOD"
.Interior.ColorIndex = 3
Case Is = "GEEL"
.Interior.ColorIndex = 6
Case Is = "ZWART"
.Interior.ColorIndex = 1
Case Is = "BLAUW"
.Interior.ColorIndex = 5
Case Is = "GROEN"
.Interior.ColorIndex = 4
Case Is = "ORANJE"
.Interior.ColorIndex = 45
Case Else
.Interior.ColorIndex = xlNone
End Select

End With


End Sub

groet

Geald

 

[DIEZEL]

Kijk hier maar eens:
http://office.webforums.nl/forum/viewtopic.php?t=16161
Verander ROOD in 1.

 

[CorVerm]

I

vraag 1. Hoe krijg ik dat VBA gebeuren in het door mij gemaakte werkblad
Vraag 2. Waarin moet ik die regels wijzigen om getallen ipv tekst te 'lezen'?
Geald

1 Door op de tab van het werklblad net rechts te klikken en voor Programmacode weergeven te kiezen en in de editor te plakken.
2 Inderdaad de kleurnamen te veranderen in cijfers.

Overigens wordt met deze code de cel zelf opgemaakt en niet de naastliggend cel.