Waarde gekleurde cellen optellen

[jurr3]

Ik zou graag willen weten of het mogelijk is om de waarde van verschillende gekleurde cellen op te tellen.

Ik heb al eens een macro gebruikt in de vorm van een telkleur, maar deze telt alleen de kleuren op. Ik zou graag willen dat van deze specifieke kleuren de waarde in een cel opgeteld wordt.

Voorbeeld:
Bekijk bijlage Voorbeeld optellen waarde van gekleurde cellen.xlsm

Alvast bedankt voor de moeite!

Groeten,
Jurre Thoes

 

[wampier]

Function SomKleur(bereik As Range, kleur As Integer) As Double
Dim totaal As Double
    For Each cell In bereik
        If cell.Interior.ColorIndex = kleur Then
            totaal = totaal + CDbl(cell.Value2)
        End If
    Next cell
SomKleur = totaal
End Function

Function GeefKleur(bereik As Range) As Integer
    GeefKleur = bereik.Cells(1, 1).Interior.ColorIndex
End Function

je kunt het zo gebruiken:

=somkleur(b5:b10,geefkleur($g$2))

 

[snb]

of

=somkleur_snb(A1:K10;A1)

Function SomKleur_snb(c01 As Range, c02)
    For Each cl In c01
        If cl.Interior.ColorIndex = c02.interior.colorindex Then somkleur_snb = somkleur_snb + cl.Value
    Next
End Function