Bad performance after color count

Question

I have a problem with bad performance after implementing this code into my Excel list to count the filled cells without a color in the set range:

Function CountCcolor(range_data As Range, criteria As Range) As Long
    Dim datax As Range
    Dim xcolor As Long
    xcolor = criteria.Interior.ColorIndex
    For Each datax In range_data
        If datax.Interior.ColorIndex = xcolor And Not datax.Value = vbNullString Then
           CountCcolor = CountCcolor + 1
        End If
    Next datax
End Function

I use this one as well to count yellow and red cells on the same page in the set range, but it doesn't lower the performance as much as the one above:

Function Farbsumme(Bereich As Range, Farbe As Integer)
    Dim Zelle As Range
    Application.Volatile
    For Each Zelle In Bereich
        If Zelle.Interior.ColorIndex = Farbe Then
            Farbsumme = Farbsumme + 1
        End If
    Next
End Function

Is there something I did wrong? Anything I could do better to increase the performance?

Answer 1

You might be using the other function in your sheet and every time it recalculates the application.volatile slows down your code.

Removing application.volatile might solve your problem.