optellen waarden in gekleurde cellen

[25engelen]

wie kan mij helpen aan een formule of codering.
ik wil graag de waarden in gekleurde cellen opgeteld hebben, zie attachement.

ik wil graag de waarden opgeteld hebben van de rode cellen en de blauwe cellen
de waarden komen vanuit formules en verwijzingen

werk excel 2007 nederlands

Bekijk bijlage gekleurde waarden optellen.xlsx


grt
Frits

 

[edmoor]

Daar is al veel over te vinden op Helpmij. Kijk bijvoorbeeld eens hier:
http://www.helpmij.nl/forum/showthr...ee-optellen?highlight=gekleurde+cellen+tellen

 

[Cobbe]

Hier een simpel voorbeeldje.

 

[25engelen]

Bekijk bijlage gekleurde waarden optellen.xlsx

formule werkt goed, dank je, maar wat als er meerdere kleuren in staan en ik wil die per kleur vermeld hebben

 

[edmoor]

Dan zou je aan die voorbeeld functie genoeg moeten hebben om deze uit te breiden.
Maar als je per kleur een vermelding wil dan hoeft dat niet eens.

 

[VenA]

Meestal wordt dit opgelost met een UDF

Voor de som

Function kleursom(kleur, r)
For Each cl In r
    If cl.Interior.Color = kleur.Interior.Color Then kleursom = kleursom + cl.Value
Next cl
End Function

Voor het aantal

Function kleurtel(kleur, r)
For Each cl In r
    If cl.Interior.Color = kleur.Interior.Color Then kleurtel = kleurtel + 1
Next cl
End Function

Waarbij het mogelijk niet werkt als de kleuren dmv VO tot stand komen.