hulp nodig met kleuren tellen in excel

Status
Niet open voor verdere reacties.
koenglass,

Dit heb ik gevonden.
De code moet in een Module.
Code:
'Deze functie is gemaakt door Wim de Groot (c) maart 2008
Function AANTALCELKLEUR(Bereik As Range, Kleurnummer As Integer) As Integer
Dim Cel As Range
For Each Cel In Bereik.Cells
    If Cel.Interior.ColorIndex = Kleurnummer Then
        AANTALCELKLEUR = AANTALCELKLEUR + 1
    End If
Next Cel
End Function
De formule is, de 5 geeft het kleurnummer aan. (zelf even aanpassen)
Code:
=AANTALCELKLEUR(A1:A27;5)
De 5 = blauw
 
Laatst bewerkt:
koenglass,

De macro die ik geplaatst had heb ik niet gebruikt maar een andere gevonden.
Het werkt ongeveer het zelfde.

Ik heb enkel de formule's voor de rij A4 ingevuld.

Kijk of het zo klopt.
Pas zonodig de formule aan.
Volgens mij kun je hem zo naar onder door trekken.

Suc6
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan