Cel een waarde geven als een andere cel een kleur heeft

[Bruce012]

Hopelijk weet iemand hier dit, ik kan het nergens vinden.

Als ik cel A1 zelf groen maak, wil ik dat in cel D1 het getal 1 komt te staan.

Alvast bedankt voor de hulp!

 

[AlexCEL]

Waarom draai je het niet om: zet in cel D1 het getal 1 en daardoor wordt A1 groen. Veel simpeler.

 

[spaarie]

Dit is de kleur groen in het bovenste rijtje van celkleuren in Excel

Sub WaardeCelKleur()
    For Each v In Selection.Cells
        With v
            Select Case .Interior.Color
                Case Is = 4697456 'Kleur groen
                    .Value = 1
            End Select
        End With
    Next
End Sub

 

[Bruce012]

Waarom draai je het niet om: zet in cel D1 het getal 1 en daardoor wordt A1 groen. Veel simpeler.

Dat begrijp ik, maar ik moet een lijst bij langs met 4000 regels, en dan kost het me per regel een extra handeling

 

[AlexCEL]

En elke cel groen maken is geen handeling? Groen maken kan gewoon met voorwaardelijke opmaak hoor...

 

[Bruce012]

Waarom draai je het niet om: zet in cel D1 het getal 1 en daardoor wordt A1 groen. Veel simpeler.

Je hebt met toch aan het denken gezet, en heb de lijst anders ingedeeld waardoor ik dit gemakkelijk kan gebruiken.
Thanks!

 

[AlexCEL]

:thumb: