VBA kunne være denne.
I et Modul:
Function SumFarveCeller(Celle_med_farve, Område_summeres_med_farven As Range) As Double
colo = Celle_med_farve.Interior.ColorIndex
colsum = 0
For Each C In Område_summeres_med_farven.Cells
If C.Interior.ColorIndex = colo Then
colsum = colsum + C.Value
End If
Next C
SumFarveCeller = colsum
End Function
Formel:
=SumFarveCeller(A1;C1:C9)
A1 = Celle med farve (f.eks. rød)
Summen i farvede (f.eks. røde) celler C1:C9