Cellen dezelfde kleur geven

[Woffels]

Is het mogelijk dat cel a1 dezelfde opvulkleur krijgt als cel b1? Dus als ik b1 handmatig een andere kleur geef, zal cel a1 volgen en dezelfde kleur krijgen, ook al ie geen opvulkleur krijgt/heeft.

 

[OctaFish]

Dat zul je moeten programmeren, al kan je het ook met VO doen op basis van de waarde in B1.

 

[Woffels]

Ik hoop dat iemand een voorbeeldje van die code kan geven. Het gaat trouwens om een verticaal aaneen gesloten reeks van cellen.
Dus bv a1 tm a10 moet dezelfde kleur krijgen als b1 tm b10.

 

[JEC.]

Mijn voorkeur gaat ook uit naar Voorwaardelijke opmaak

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 For Each cl In Range("A1:A10")
   cl.Interior.ColorIndex = cl.Offset(, 1).Interior.ColorIndex
 Next
End Sub