Optælling af farvede celler

...hvor "mange" grønne,...

Prøv med nedenstående som er en makro, som bak har lavet, som jeg (muligvis) har modificeret lidt.

' Funktionsnavn:    TælAlleHvisFarve
' Parametre:        TælOmråde ; FarveOmråde
' Beskrivelse:      Returnerer antallet af de celler i SumOmråde, der har samme farve
'                  som FarveCelle.

Function TælAlleHvisFarve(TælOmråde As Range, FarveCelle As Range) As Double
Dim Celle As Range, iColor As Integer
Dim Tæller As Double

Application.Volatile
For Each Celle In TælOmråde
    If Celle.Interior.ColorIndex = FarveCelle.Interior.ColorIndex Then Tæller = Tæller + 1
Next Celle
TælAlleHvisFarve = Tæller
End Function