f(x) - returner værdi basert på celleformatering (farve og baggrund)

Function SumColor(rColor As Range, rSumRange As Range)

''''''''''''''''''''''''''''''''''''''

'Written by Ozgrid Business Applications

'www.ozgrid.com

'Sums cells based on a specified fill color.

'''''''''''''''''''''''''''''''''''''''

    Dim rCell As Range
    Dim iCol As Integer
    Dim vResult


    iCol = rColor.Interior.ColorIndex


        For Each rCell In rSumRange
            If rCell.Interior.ColorIndex = iCol Then
                vResult = WorksheetFunction.Sum(rCell) + vResult
            End If

        Next rCell

    SumColor = vResult

End Function