Betinget sumformel

Jeg har en formel, der summer data fra en range, baseret på den baggrundsfarve som cellen har.

Hvis man har et ark med følgende data (A1:A4), hvor * markeringen betyder at cellen er farvet grøn:


100    *
200
50
25    *


så får man følgende resultater med følgende formler:

125    = SumGrøn(A1:A4)
375    = Sum(A1:A4)

Mit problem er at jeg ikke kan få formlen (SumGrøn) til at reagere hvis en bruger farver en ny celle grøn, feks. cellen med tallet 50. Min SumGrøn opfatter ikke at den nu også skal tage denne celle med. Kun hvis tallet senere bliver rettet (til feks. 55) vil tallet blive regnet med ind i summen.

Det eneste der kan får cellen med SumGrøn til at ændre sig er ved at trykke på F2 og Enter. Ikke engang F9 får den korrekte sum frem.

Er der nogen der har en ide til hvordan man tvinger en rekalkulation af SumGrøn igennem, eller evt. har et andet bud på hvordan denne opgave kan løses?


Function SumGrøn(rSumRange As Range)

Dim rCell As Range
Dim iCol As Integer
Dim vResult

iCol = 4

  For Each rCell In rSumRange
    If rCell.Interior.ColorIndex = iCol Then
            vResult = WorksheetFunction.Sum(rCell) + vResult
    End If
  Next rCell

SumGrøn = vResult
End Function