De functie SOMCELKLEUR somt alle cellen met een opgegeven kleur op.
Nou wens ik dat deze functie op basis van meerdere soorten achtergrondskleuren cellen optelt. Hoe is dit mogelijk?
Alvast bedankt
Code:
Function SOMCELKLEUR(r As Range, KleurCel As Range) As Double
Application.Volatile
For Each Cel In r.Cells
If Cel.Interior.ColorIndex = KleurCel.Interior.ColorIndex And IsNumeric(Cel.Value) Then
SOMCELKLEUR = SOMCELKLEUR + Cel.Value
End If
Next Cel
End Function
Nou wens ik dat deze functie op basis van meerdere soorten achtergrondskleuren cellen optelt. Hoe is dit mogelijk?
Alvast bedankt