Bovenste cel een kleurtje

[don42]

Wie kan mij helpen met het volgende:

zou graag zien dat de bovenste cel van een kolom een kleurtje krijgt
als ik een cel heb geselecteerd uit de zelfde kolom

Voorbeeld:
Cel C8 geselecteerd - Cel C1 Rood
Cel C12 geselecteerd eveneens Cel C1 Rood
Cel K15 geselecteerd Cel K1 Rood

bvd
Don

 

[Roncancio]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(1, Target.Column).Interior.Color = vbRed
End Sub

Met vriendelijke groet,


Roncancio

 

[don42]

Bedankt voor je hulp
Het is al mooi maar net niet wat ik zoek
is het ook mogelijk dat er maar een cel op kleurt
nu blijven de cellen rood ook als ik in een andere kolom ga staan
dat had ik liever niet (alleen de bovenste cel van de desbetreffende kolom)
uit mijn vraag kan je dat ook niet opmaken (sorry)
ik hoop dat wat ik graag wil ook mogelijk is

groet,
Don

 

[Roncancio]

In dat geval...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("1:1").Interior.ColorIndex = xlNone
Cells(1, Target.Column).Interior.Color = vbRed
End Sub

Met vriendelijke groet,


Roncancio

 

[don42]

Hoi dit is precies wat ik nodig had
heel erg bedankt voor je hulp
echt super hier.

Don