Sammentælling af farvede felter

Hvis felterne er farvede ud fra en betinget formatering, kan du vel bare tælle med samme samme betingelse.

Ex.
Conditional formating:
Red if x>0

Og så Count.if(Area;x>0)

Eller er felterne farvet manuelt?

Hvis det er5 baggrubndsfarver, der sættes manuelt, kan du bruge denne funktion

Function CountColor(Cel, ran As range) As Double
    colo = Cel.Interior.ColorIndex
    cou = 0
    For Each c In ran.Cells
        If c.Interior.ColorIndex = colo Then
            cou = cou + 1
        End If
    Next c
    CountColor = cou
End Function

Placer funktionen i et modul. Indsæt derefter følgende formel i en celle:

=countcolor(A5;A1:A500)

Hvor A5 skal have den farve, du geren vil tælle.