Funktion til =COUNTIF kun i celler uden baggrundsfarver

Public Function ColoredCellsCount(countArea As Range, countColor As Range, matchText As String) As Double
    'qqq.smartoffice.dk
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range
    Dim iColor As Integer
    For Each rCell In countArea
        If rCell.Interior.ColorIndex = countColor.Interior.ColorIndex And rCell.Value = matchText Then
            dRetVal = dRetVal + 1
        End If
    Next rCell
    ColoredCellsCount = dRetVal
    ' Clean up
    Set rCell = Nothing
End Function

Public Function ColoredCellsCount(countArea As Range, countColor As Range, matchText As String) As Double
    'qqq.smartoffice.dk
    Application.Volatile
    Dim dRetVal As Double
    Dim rCell As Range
    Dim iColor As Integer
    For Each rCell In countArea
        If rCell.Interior.ColorIndex = countColor.Interior.ColorIndex And Trim(LCase(rCell.Value)) = Trim(LCase(matchText)) Then
            dRetVal = dRetVal + 1
        End If
    Next rCell
    ColoredCellsCount = dRetVal
    ' Clean up
    Set rCell = Nothing
End Function