Hoe kan ik het aantal gekleurde cellen in een bepaalde rang optellen?

Ik heb in VBA hetvolgende in module 1 gezet:

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

Ik heb onderstaande formule in het Excell bestand gezet:
=TelKLEUR(C5:C50;C2)
C2 is de gekleurde cel en C5:C50 de range.

Ik krijg nu steeds als uitkomst #NAAM#

Hoe kan ik krijg ik een werkende formule?

Weet jij het antwoord?

/2500

Probeer dit: Function TelKleur(CelKleur As Range, R As Range) Dim C As Long, Dim Kleur As Integer Kleur = CelKleur.Interior.ColorIndex For Each Cl In R If C.Interior.ColorIndex = Kleur Then C = WorksheetFunction.SUM(Cl, C) End if Next Cl TelKleur = C End Function

Stel zelf een vraag

Ben je op zoek naar het antwoord die ene vraag die je misschien al tijden achtervolgt?

/100