Tæller nr. af celle med særlig farve i en række / kolonne

Her definerer jeg en funktion til at tælle et nej. af celle i en række / kolonne med særlig farve,

Det er ligesom Countif cellcolor er = Farve

 Funktion ColorCount (colorCell As Range, countRange As Range) Dim rCell Som Range Dim CellCol Som Integer Dim ans Så lang ans = 0 cellCol = colorCell.Interior.ColorIndex For hver rCell I countRange Hvis rCell.Interior.ColorIndex = cellCol Så ans = ans + 1 ende hvis næste rCell ColorCount = ans End Function