celwaarde op basis van kleur?

[Youri92]

ik weet hoe ik in excel de kleur van een cel aanpas aan de waarde
nu wil ik bij andere cellen juist het tegenovergestelde doen.

stel dat cel an A1 rood is wil ik B1 de waarde 1 geven, kan dit?

 

[VenA]

Ja. Dezelfde voorwaarde in B1 zetten. Maar een voorbeeldje is beter.

 

[Youri92]

A1 heeft geen voorwaarde, ik kleur die cel alleen rood of niet. daarop moet B1 gebaseerd worden

 

[VenA]

Vandaar de vraag om een bestandje.............................

 

[Youri92]

Bekijk bijlage kleur.xlsx

 

[VenA]

Bijzonder voorbeeldje er staat nagenoeg niets in wat met de vraag te maken heeft. Wat je verder met de kleurtje wil gezien jouw andere vraag is ook nog onduidelijk.

Probeer dit maar eens.

Sub VenA()
For Each cl In Columns(1).SpecialCells(2)
    If cl.Interior.Color = vbRed Then cl.Offset(, 2) = 1 Else cl.Offset(, 2) = ""
Next cl
End Sub