Kleur overnemen van aangrenzende cel (Excel 2007)

[Senso]

Dat is wat ik wil, maar werkt niet. De opvulkleur van cel B overnemen in cel A.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Me.Range("A6").Interior.Color = Me.Range("B6").Interior.Color
    Me.Range("A7").Interior.Color = Me.Range("B7").Interior.Color
    Me.Range("A8").Interior.Color = Me.Range("B8").Interior.Color
    Me.Range("A9").Interior.Color = Me.Range("B9").Interior.Color
    Me.Range("A10").Interior.Color = Me.Range("B10").Interior.Color
    Me.Range("A11").Interior.Color = Me.Range("B11").Interior.Color
    Me.Range("A12").Interior.Color = Me.Range("B12").Interior.Color
    Me.Range("A13").Interior.Color = Me.Range("B13").Interior.Color
    Me.Range("A14").Interior.Color = Me.Range("B14").Interior.Color
    Me.Range("A15").Interior.Color = Me.Range("B15").Interior.Color
    Me.Range("A16").Interior.Color = Me.Range("B16").Interior.Color
    Me.Range("A17").Interior.Color = Me.Range("B17").Interior.Color
End Sub

 

[HSV]

Waarschijnlijk de code in de verkeerde module.

Dit doet hetzelfde:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 range("a6:a17").Interior.Color = range("b6:b17").Interior.Color
End Sub

Als ze allen verschillende kleurtjes hebben dan:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cl
For Each cl In Range("b6:b17")
 cl.Offset(, -1).Interior.Color = cl.Interior.Color
Next cl
End Sub

 

[Senso]

Krijg het niet werkend. Komt dat misschien omdat de opvulkleur in de cellen van kolom B bepaald worden door VO?

 

[AlexCEL]

Waarom maak je het bereik van die VO dan niet wat groter zodat deze ook kolom A omvat?

 

[Senso]

Zal het bestand plaatsen dan begrijp je het wellicht.
Bekijk bijlage Excel Getal - Hoogste en laagste waarde in bereik tussen twee datums_2.xlsm

 

[AlexCEL]

Gebruik een formule-voorwaarde.

PS https://www.helpmij.nl/forum/showthread.php/965239-Uitreken-aantal-uren-in-dal-en-normaal-tarief?p=6333718&viewfull=1#post6333718