Selectie laten zien

[jelleruben]

Hallo allemaal,

Is het mogelijk om in Excel een code te gebruiken die een bepaalde selectie laat zien?
voorbeeld ik heb de volgende tabel

Nu wil ik eigelijk het volgende als ik een getal bv 1 in cel K3 invul.
Dat dan in het blauwe gedeeldte het getal 1 verkleurd. bijvoorbeeld rode letters.

Maar zet ik een andere getal in cel K3, 4 dat dan alle vieren rood worden, en dat 1 weer normaal.

Is dit mogelijke met een bepaalde script?? Ik hoop dat iemand mij op weg kan en wilt helpen.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$3" Then
    For Each cl In [C3:H7]
        cl.Font.ColorIndex = IIf(cl = Target, 3, xlAutomatic)
    Next
End If
End Sub

 

[gelens]

Jelleruben

Een andere optie is om voorwaardelijke opmaak te gebruiken voor het blauwe gebied.
Hetgebied selecteren > Opmaak > voorwaardelijke opmaak > Cel is gelijk aan $k$3

Hierna de gewenste opmaak invoeren.

 

[jelleruben]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$3" Then
    For Each cl In [C3:H7]
        cl.Font.ColorIndex = IIf(cl = Target, 3, xlAutomatic)
    Next
End If
End Sub

Bedankt voor de code, helaas zie ik hier op het werk, dat ik in VB geen blad open kan krijgen, waar ik die code in kan vullen..

 

[jelleruben]

Jelleruben

Een andere optie is om voorwaardelijke opmaak te gebruiken voor het blauwe gebied.
Hetgebied selecteren > Opmaak > voorwaardelijke opmaak > Cel is gelijk aan $k$3

Hierna de gewenste opmaak invoeren.

Wat ik fout doe weet ik niet, maar krijg dit zo niet werken.

 

[gelens]

Jelleruben

Zie het voorbeeld bestandje

 

[jelleruben]

Jongens heel erg bedankt voor jullie's hulp,,

Probleem opgelost.

 

[gelens]

Jelleruben

Graag gedaan.

Zet je de vraag ook evenop opgelost ??