Kleuren tellen met waarden excel

[sjoepes]

Bekijk bijlage kamerplanning kleuren tellen vb.xlsmBekijk bijlage kleurentellen code.txt

Ik had graag de cellen met waardes erin opgeteld van een bepaalde kleur.
Het aantal cellen tellen van een bepaalde kleur dat is me al gelukt, deze code heb ik al ingevoerd in een module via visual basic. Nu moet ik het alleen nog zo krijgen dat hij bijvoorbeeld alleen de paarse cellen met een waarde telt, en alleen de blauwe cellen met een waarde.
Met verschillende formules krijg ik het niet voor elkaar, misschien weet iemand hoe ik deze code kan aanpassen dat dit misschien wel lukt?

In de bijlage vind zich het excel bestand waar ik dit graag in gedaan had, verder zit er ook een los kladblok bestand in met de KleurenTellen code erin.

Groeten Joey

 

[Warme bakkertje]

Function KleurenTellenGevuld(rBereik As Range, rColor As Range) As Long

    Dim rRange As Range
    Dim Teller As Long
    Dim lColor As Long
    Application.Volatile
    lColor = rColor.Interior.ColorIndex
    For Each rRange In rBereik
        If rRange.Interior.ColorIndex = lColor And rRange <> vbNullString Then
            Teller = Teller + 1
        End If
    Next
    KleurenTellenGevuld = Teller
End Function

 

[sjoepes]

Hartelijk bedankt voor de snelle reactie !
Hij werkt perfect !