gekleurde cellen tellen

[niekjd]

Hallo

Wie weet welke formule ik moet gebruiken om gekleurde cellen te tellen in exel. Ik heb wel een formule (SOMCELKLEUR) maar dan tel hij de waardes die in de cellen staan.

Gr Niek

 

[edmoor]

Je wil het aantal cellen weten dat een andere kleur heeft dan de Excel standaard? Dat kan je vast eenvoudig afleiden van die SOMCELKLEUR functie.

 

[niekjd]

Ik heb in een rij van 30 cellen, 4 cellen geel gemaakt, in elke gele cel staat het getal 90.
Met de somcelkleur kan ik de gele cellen wel tellen alleen is dan de uitkomst 360 (4 x 90) ipv 4 (4 gele cellen)
Moet ik een andere formule hanteren of helemaal iets anders invoeren.

 

[edmoor]

Daar is niets over te zeggen als je de formule niet laat zien.

 

[Niels28]

in elke gele cel staat het getal 90.

Waarom tel je dan niet het aantal 90's ?

Niels

 

[niekjd]

Niels, het getal is niet altijd 90, dit is nu toevallig zo.

 

[HSV]

En met 'aantalarg' gaat ook niet?

Liever nog je bestandje bijvoegen, daar het waarschijnlijk om een (ExecuteExcel4)macro gaat.

 

[niekjd]

Harry

Ik probeer een bijlage toe te voegen, maar dat lukt me niet!
Dat moet toch via de bijlage koppeling.

 

[Haije]

Ja, maar is je bestand niet te groot?

 

[edmoor]

Deze kan zowel het bereik optellen als het aantal cellen met de opgegeven kleur tellen:

Public Function SOMKLEUR(Bereik As Range, CelKleur As Range, Optional Tellen As Integer) As Variant
    Dim i As Long
    Dim x As Long
    
    For i = Bereik.Row To Bereik.Rows.Count + Bereik.Row - 1
        If Cells(i, CelKleur.Column).Interior.Color = CelKleur.Interior.Color Then
            Select Case Tellen
                Case 0
                    'Het bereik optellen
                    SOMKLEUR = SOMKLEUR + Cells(i, Bereik.Column)
                Case 1
                    'Het aantal cellen met de kleur tellen
                    x = x + 1
                    SOMKLEUR = x
            End Select
        End If
    Next i
End Function

Aanroep voorbeeld:
=SOMKLEUR(C2:C16;B6;1)

 

[niekjd]

Ednoor
Bedankt het is uiteindelijk gelukt.