Sum af farvede celler i Excel 2007

Her er en af Baks funktioner

rRange = området med farvede celler

rColor  = en celle med den farve, der skal summeres


Function ColorCount(rRange As Range, rColor As Range) As Double
    Dim rCell As Range
    Dim dCount As Double
    dCount = 0
    Application.Volatile
    For Each rCell In rRange
        If rCell.Interior.ColorIndex = rColor.Interior.ColorIndex Then
            dCount = dCount + rCell
        End If
    Next rCell
    ColorCount = dCount
End Function

Tak Kabbak.
Må jeg bé om et svar så du kan få point?

et svar ;-))