cellen kleuren bij selectie

[Mohammad]

Beste lezer,

Graag wil ik de volgende bereiken (zie bijlage als voorbeeld):

Als ik een cel selecteer in het bereik B3:Y42 dan kleuren twee cellen; namelijk het periode nummer in regel 2 en de bedrijfsnaam in kolom A.

in het bestand heb ik handmatig deze cellen gekleurd ter verduidelijking.

alvast bedankt voor het mee denken.

 

[VenA]

Probeer het zo eens.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Intersect(Target, Range("B3:Y42")) Is Nothing Then Exit Sub
  [AC16] = Cells(Target.Row, 1) & " - Periode " & Cells(2, Target.Column)
  Range("A3:A42").Interior.Color = xlNone
  Range("B2:M2").Interior.Color = 65535
  Range("N2:Y2").Interior.ThemeColor = xlThemeColorAccent6
  Cells(Target.Row, 1).Interior.ThemeColor = xlThemeColorAccent5
  Cells(2, Target.Column).Interior.ThemeColor = xlThemeColorAccent5
End Sub

 

[Mohammad]

Top VenA, dank je voor de snelle reactie.

Ik kan hier mee verder.