bijlomende cellen kleuren bij selectie van cel in kolom B selecteren

[ginogcsbelgie]

Goeiemorgen iedereen, ik ben met een projectje bezig en zit met een klein probleemje.
Ik heb op het werkblad een stukje code geplaatst wanneer ik zoek op een cel in de kolom B deze ook groen kleurt na het zoeken.
Nu mijn probleem is dat ik zou willen dat enkel de cel groen kleurt als ik in de B,C, en D kolom een cel selecteer en niet op het volledige werkblad, maar ook wanneer een cel in de B kolom bv B10 wordt geselecteerd dan ook C10 en D10 telkens mee groen kleuren en dit voor de ganse B kolom.
Is dit mogelijk?
Deze code heb ik nu

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
ActiveCell.Interior.ColorIndex = 4
End Sub

Alvast bedankt
Beleefde groeten

 

[SjonR]

zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
If Target.Column = 2 Then Target.Resize(, 3).Interior.ColorIndex = 4
End Sub

 

[ginogcsbelgie]

Hartelijk dank SjonR, dit was wat ik nodig heb! Hier kan ik op verder bouwen.

 

[AD1957]

Nu mijn probleem is dat ik zou willen dat enkel de cel groen kleurt als ik in de B,C, en D kolom een cel selecteer

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
Select Case Target.Column
    Case 2
         Target.Resize(, 3).Interior.ColorIndex = 4
    Case 3
        Target.Offset(, -1).Resize(, 3).Interior.ColorIndex = 4
    Case 4
        Target.Offset(, -2).Resize(, 3).Interior.ColorIndex = 4
End Select
End Sub

 

[SjonR]

dan zo:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlColorIndexNone
If Target.Column > 1 And Target.Column < 5 Then Cells(Target.Row, 2).Resize(, 3).Interior.ColorIndex = 4
End Sub

 

[ginogcsbelgie]

Iedereen bedankt voor de hulp, het werkt perfect en ik heb kunnen verder bouwen.

 

[snb]

Voor de fijnslijpers:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Columns(2).Resize(, 3).Interior.ColorIndex = 0
  Cells(Target.Row, 2).Resize(, 3).Interior.ColorIndex = 4 * Abs(((Target.Column + 1) \ 3 = 1))
End Sub