Celwaarde optellen op basis van celkleur

[tThye]

Goedemiddag heren en dames,

Ik heb het Helpmij-forum doorgespit, maar kom de antwoord op mijn vraag niet tegen.

Ik werk in Excel 2010 en mijn wens is verwoord in bijgevoegd voorbeeld. Kortweg wil ik graag waarden optellen in kolom C op basis van de celkleur in kolom B. Volgens mij vrij simpel, maar ik kom niet achter de benodigde formule. Lukt het om dit middels Excelformules te doen of biedt een VBA-macro uitkomst?

Mochten jullie meer informatie nodig hebben, dan verneem ik het graag.

Met vriendelijke groet,

MarkBekijk bijlage Voorbeeld.xlsx

 

[edmoor]

Kijk eens naar deze:
Bekijk bijlage Voorbeeld.xlsm

De functie die gebruikt wordt is deze:

Public Function SOMKLEUR(Bereik As Range, CelKleur As Range) As Variant
    Dim i As Long
    
    For i = Bereik.Row To Bereik.Rows.Count + Bereik.Row - 1
        If Cells(i, CelKleur.Column).Interior.Color = CelKleur.Interior.Color Then
            SOMKLEUR = SOMKLEUR + Cells(i, Bereik.Column)
        End If
    Next i
End Function

 

[tThye]

Wens is in vervulling gegaan

Dit werkt heel fijn en is precies wat ik nodig had, bedankt!

Groeten, Mark