Automatische celkleur aan en uit

[RB_online]

Beste forumleden,

Ik wil graag het volgende.

Zodra een willekeurige cel geselecteerd wordt wil ik dat de cel in kolom B op de desbetreffende rij geel wordt.
Dit lukt met de volgende code

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rij = ActiveCell.Row
Range("B" & rij).Interior.Color = 65535
End Sub

Nu wil ik echter ook dat indien er een cel op een andere rij wordt geselecteerd dat de gele kleur in de vorige cel weer verdwijnt en dat de cel kolom B van de nieuw geselecteerde rij geel wordt
Het lukt me echter niet om de gele kleur weg te krijgen.

 

[Niels28]

Zit er verder geen opmaak in kolom B?

dan kan het zo.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
rij = ActiveCell.Row
Range("B:B").Interior.Color = xlNone
Range("B" & rij).Interior.Color = 65535
End Sub

Of met voorwaardelijke opmaak en een macro dan blijft je originele opmaak behouden.

Bekijk bijlage cel kleuren.xls


Niels

 

[RB_online]

werkt prima.
Verder had ik kolom B geen speciale opmaak gebruikt
Bedankt

René