Formules in cellen afhankelijk maken van kleuren

[wimb]

Mijn probleem komt op het volgende neer: stel ik heb een kolom met daarin allemaal cellen met waarden die getoond worden in een rode of groene tekst.
Nu wil ik 2 totalisaties maken: één met de som van alle rode cellen bij elkaar en en de andere met de som van alle groene cellen.
Ik weet echter niet hoe ik dit voor elkaar moet krijgen.
Kan Excel dit aan? Mogelijk is er een VB macro oid voor. Heeft iemand een oplossing?

 

[ExcelExpert]

Ik zou SOM.ALS gebruiken en als criteria dezelfde criteria opgeven als voor het bepalen van de kleur van de cel.

 

[Maglor]

ik ben geen VBA-expert, verre van, maar dit is mijn poging... (bij mij werkt ze toch)

Sub optellen()

Dim groen As Long
Dim rood As Long

groen = 0
rood = 0

While IsEmpty(ActiveCell.Value) = False
If Selection.Font.ColorIndex = 10 Then
groen = groen + ActiveCell.Value
End If

If Selection.Font.ColorIndex = 3 Then
rood = rood + ActiveCell.Value
End If

ActiveCell.Offset(1, 0).Select
Wend

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "Groen = " & groen
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = "Rood = " & rood

End Sub


EDIT: je moet natuurlijk zien dat jouw gebruikte kleuren overeenkomen met de mijne...

 

[LucB]

Wim,
Dit is ook een mogelijkheid.

Zie bijlage.

 

[wimb]

Ik heb voorlopig voldoende aanknopingspunten.
Hier vind ik vast iets tussen wat ik kan gebruiken.
Iedereen bedankt voor zijn reactie!
WIm