cellen kleur overnemen

[lobelvin]

hallo,

is het mogelijk als bv. cel A1 groen (of een andere kleur) gekleurd wordt dat automatisch ook bv. cel A10 groen kleurd (of een andere kleur) (de kleur gekozen in A1)

alvast bedankt,
danny

 

[OctaFish]

Kleur wordt niet geregistreerd als een wijziging op het blad, dus helemaal jofel werkt dit niet, maar wellicht dat je er wat mee kunt stoeien. Sowieso zie je wel wat het doet als je in een andere cel klikt, en dan weer in A1.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        Range("$A$10").Interior.Color = Target.Interior.Color
    End If
End Sub

 

[OctaFish]

Of zoiets:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$A$1" Then
        Range("$A$10").Interior.Color = Range("$A$1").Interior.Color
    End If
End Sub

 

[lobelvin]

hallo,

beide code's werken naar behoren, alhoewel de 2de nog iets beter is :thumb: ik kan hier wel mee verder

alvast bedankt,
Danny

 

[OctaFish]

De tweede variant kijkt naar alle cellen, en wordt dus heel vaak uitgevoerd. Je kunt wellicht daar wat aan verbeteren door de check op één of 2 kolommen te doen.