Excel 2013. Summer alle røde celler

Er cellerne røde pga Betinget Formattering, eller har du selv farvet rødt ?

Jeg har selv farvet dem røde. Det er blot et eksempel. Jeg har brug for at lægge nogle tal sammen gruppevist - summen af alle røde, summen af alle blå, summen af alle grønne osv.

Er det baggrundsfarver?
Hvor mange forskellige?

Skulle nok kunne gøres via VBA.

Jeg fandt en løsning:

http://www.extendoffice.com/documents/excel/1155-excel-count-sum-cells-by-color.html

Der skal makroer til, men så er det ingen sag.

Havde også et bud:

Dim antalFarver As Integer
Dim antalRækker As Integer, antalKolonner As Integer, ix As Integer, ræknr As Integer
Dim tabel(), farveNr
Sub optællingAfFarver()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
    antalKolonner = ActiveCell.SpecialCells(xlLastCell).Column
   
    ReDim tabel(100)
    For Each cc In Range(Cells(1, 1), Cells(antalRækker, antalKolonner)).Cells
       
        If cc.Interior.ColorIndex <> xlColorIndexNone Then
            farveNr = cc.Interior.ColorIndex
            tabel(farveNr) = tabel(farveNr) + cc.Value
        End If
    Next
   
    ræknr = antalRækker + 2
   
    For ix = 0 To 100
        If tabel(ix) <> 0 Then
            Cells(ræknr, 1).Interior.ColorIndex = ix
            Cells(ræknr, 1).Value = tabel(ix)
           
            ræknr = ræknr + 1
        End If
    Next
End Sub