Het niet optellen van gekleurde cellen in een filter

[jojo92]

Hallo Allemaal,

Ik ben pas net bezig in VBA en liep tegen het volgende aan.

Function TelKleur(R As Range, CelKleur As Range) As Integer
Dim C As Object, Kleur As Integer

Kleur = CelKleur.Interior.ColorIndex
TelKleur = 0

For Each C In R
If C.Interior.ColorIndex = Kleur Then TelKleur = TelKleur + 1

Next

End Function

Deze code heb ik online gevonden en telt het aantal gekleurde cellen in een range.
Helaas telt hij ook de verborgen cellen nog mee na een filter.
Zou iemand mij in de goede richting kunnen brengen, heb zelf al wel dingen geprobeerd maar krijg dan constant foutmeldingen.

Alvast bedankt.

 

[E v R]

If C.Interior.ColorIndex = Kleur [COLOR="#FF0000"][B]And Not C.EntireRow.Hidden [/B][/COLOR]Then TelKleur = TelKleur + 1

 

[jojo92]

Held!