Meer dan 3 conditional formatting

[Rommyke]

Hallo ,

Ik zit op het moment een beetje vast met mijn 3 conditional formating .

om dit op te lossen gebruik ik onderstaande code

Private Sub Worksheet_change(ByVal Target As Range)

If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
Select Case Target
Case "Max"
Target.Interior.Color = vbRed
Case "Min"
Target.Interior.Color = vbYellow
Case "Ok"
Target.Interior.Color = vbGreen

End Select

End Sub

De code op zijn eigen werkt perfect .
Het probleem echter is dat ik in kolom C met een formule werk .

De waarde van kolom C veranderd dus zonder in de cell te klikken waardoor de macro niet kan ingrijpen om de kleur te veranderen


Iemand een idee hoe dit op te lossen ?

Groetjes
Romain

 

[WinteE]

Waarom maak je geen gebruik van Voorwaardelijke opmaak ?

3 condities krijg ik er sowieso in met "Gelijk aan" !

Erik

 

[Jan van Asseldonk]

Waarom maak je geen gebruik van Voorwaardelijke opmaak ?

3 condities krijg ik er sowieso in met "Gelijk aan" !

Ik vermoed dat er uiteondelijk meer dan 3 voorwaardelijke opmaken nodig zijn.
Anders is het inderdaad gemakkelijker om meteen voor voorwaardelijke opmaak te kiezen.

Heb jer er meer nodig pas dan je macro aan zoals hieronder aangegeven.

Private Sub Worksheet_change(ByVal Target As Range)

    If Intersect(Target, [e:e]) Is Nothing Then Exit Sub
    Select Case Target.Offset(0, -2)
        Case "Max"
        Target.Offset(0, -2).Interior.Color = vbRed
        Case "Min"
        Target.Offset(0, -2).Interior.Color = vbYellow
        Case "Ok"
        Target.Offset(0, -2).Interior.Color = vbGreen
    End Select

End Sub

Controleer dus op kolom e of er iets wijzigt en pas de opmaak van de cel in kolom c
( =offset(0,-2) ) hierop aan.

 

[Rommyke]

Ik vermoed dat er uiteondelijk meer dan 3 voorwaardelijke opmaken nodig zijn.
Anders is het inderdaad gemakkelijker om meteen voor voorwaardelijke opmaak te kiezen.

Was maar voor een voorbeeldje tegeven (misschien was 3 slecht gekozen ) maar komen er inderdaad meer dan 3 in de database .


Nog bedankt Jan en WinteE


Groetjes
Romain