• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kleuren tellen met waarden excel

Status
Niet open voor verdere reacties.
S

sjoepes

Gebruiker
Lid geworden
12 dec 2011
Berichten
44
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
 
Code: 
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
 
Hartelijk bedankt voor de snelle reactie !
Hij werkt perfect !
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan