Back to frontpage
Hét vraag- en antwoordplatform van Nederland

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?

Verwijderde gebruiker
7 jaar geleden
in: Software
955
Verwijderde gebruiker
7 jaar geleden
De functie werkt bij mij gewoon. Weet je zeker dat je in de aanroep geen tikfout hebt zitten?
Dat is vaak de reden dat een functie niet gevonden wordt, en dan krijg je de melding #NAAM?

Heb je meer informatie nodig om de vraag te beantwoorden? Reageer dan hier.

Antwoorden (1)

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
(Lees meer...)
Verwijderde gebruiker
7 jaar geleden

Weet jij het beter..?

Het is niet mogelijk om je eigen vraag te beantwoorden Je mag slechts 1 keer antwoord geven op een vraag Je hebt vandaag al antwoorden gegeven. Morgen mag je opnieuw maximaal antwoorden geven.

0 / 2500
Gekozen afbeelding
+