Range invoegen

[Corine79]

Beste Excel gebruikers,

In onderstaand voorbeeld; wordt een gekleurde balk weergegeven over de gehele breedte van een rij, als de cursor op een willekeurig plek staat. De vraag is: of het bereik is te beperken tot de eerste 11.
Van A:N dus.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 20
End If
End Sub


Vr. gr.
Corine

 

[Niels28]

Ik heb A:N aangehouden ipv de eerste 11 kolommen van dit is toch echt niet het zelfde

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 Then
Cells.Interior.ColorIndex = xlNone
Cells(Target.Row, 1).Resize(1, 14).Interior.ColorIndex = 20
End If
End Sub

Niels

 

[Corine79]

Niels,
Hartelijk dank voor de (snelle) oplossing. Dit is precies wat ik bedoelde.

Corine