Meerdere kleuren selecteren met VBA functie SOMCELKLEUR

[Max X]

De functie SOMCELKLEUR somt alle cellen met een opgegeven kleur op.

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

 

[JeanPaul28]

Post eens een voorbeeld

 

[Max X]

Natuurlijk.

Als ik bijvoorbeeld de oranje en groen gekleurde cellen bij elkaar wil optellen.

 

[arrie23]

Makkelijke oplossing:

=SOMCELKLEUR(range, oranje)+SOMCELKLEUR(range, groen)

Of voor 2 kleuren:

Function SOMCELKLEUR(r As Range, KleurCel As Range, Kleurcel2 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
                 If Cel.Interior.ColorIndex = Kleurcel2.Interior.ColorIndex And IsNumeric(Cel.Value) Then
            SOMCELKLEUR = SOMCELKLEUR + Cel.Value
        End If
            Next Cel
End Function

 

[Max X]

Thank you very much!