kleuren optellen

[16Robin08]

Hallo,

Is er een formule waarbij je kleuren kan optellen?
Want ik heb in een Excel bestand uitslagen staan met wedstrijden waarbij het winnend team (getal van de uitslag) groen is gekleurd en de verliezende rood. Dus ik wil de groene optellen en de rode.

Alvast bedankt

 

[Joske2000]

Hi Robin,

Volgende functie doet wat je vraagt.
Komt van de site van Ozgrid.

Function SumColor(rColor As Range, rSumRange As Range)
    Dim rCell As Range
    Dim iCol As Integer
    Dim vResult
    iCol = rColor.Interior.ColorIndex
        For Each rCell In rSumRange
            If rCell.Interior.ColorIndex = iCol Then
                vResult = WorksheetFunction.Sum(rCell) + vResult
            End If
        Next rCell
    SumColor = vResult
End Function

Joske

 

[16Robin08]

Beste Joske,

Ik weet helemaal niets van marcro's.
Kunt u aub voor mij die marcro/code in mijn bestand zetten?

Alvast bedankt

Robin

 

[Cobbe]

Nog rap voor het slapen gaan.

 

[16Robin08]

Hartelijk dank voor uw reactie

Mvg Robin