Optælling af farvede celler

ellers via VBA...

Kan du ikke bruge samme kriterier i en COUNT-formel som du bruger til formateringen?

Nej - ikke så vidt jeg kan se.

Jooh - tænkte bare der måske var en hurtigere vej :-)

Du må gerne prøve at sende en prøve på filen og den ønskede optælling.

Arbejder i 2003.

Public 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 + 1
        End If
    Next rCell
    Colorcount = dCount
End Function