Gekleurde rijen/cellen tellen

[PITOR]

Ik wil tellen hoeveel regels of cellen er in een blad een bepaalde kleur hebben. Er zijn meerdere kleuren om te tellen. Zie bestandje Voorbeeld.xlm
RaymondC postte ooit dit antwoord op dezelfde vraag in 2011:

<Quote>
Heb de code ooit eens gevonden (en dus bewaard):
Code:
Function TelAchtergrondkleur(Bereik As range, Reference As range)
* * Dim Cl As range
* * Dim ClrCount As Long
* * For Each Cl In Bereik
* * * * If Cl.Interior.ColorIndex = Reference.Interior.ColorIndex Then
* * * * ClrCount = ClrCount + 1
* * * * End If
* * Next
* * TelAchtergrondkleur = ClrCount
End Function
<Unquote>

Het eerste bestandje waarin gebruik gemaakt wordt van deze code heb ik hierbij gevoegd. Het is in 2011 als uitleg opgestuurd door Warme Bakkertje. Het werkt. In Excel 2013, dat ik gebruik, moet de extentie .xlm zijn omdat anders de code niet opgeslagen wordt. Maar ook in Excel 2013 werkt het dus.
Nu heb ik geprobeerd om deze code toe te passen in het tweede meegestuurde bestandje (voorbeeld.xlm) maar in plaats van te werken levert de code alleen maar de uitkomst "#NAAM?"op.
Heeft iemand een idee hoe dat op te lossen is?

Greetz! Pitor

 

[E v R]

Zet de code van de UDF in een module en niet in het codegedeelte van de sheet

 

[PITOR]

Gevonden!

Ik heb het gevonden door op YouTube te zoeken:

Ga in het blad staan waarin de formule =TelAchtergrondkleur('Page 1'!$C$4:$L$854;A1) staat.
<ALT><F11>
rechts-klik op het betrokken VBAProject
Kies Invoegen
Kies Module
Kopieer de code in het zojuist geopende blanke venster
<CTRL><S>
<ALT><Q>

Groet,
Pitor

 

[PITOR]

Zet de code van de UDF in een module en niet in het codegedeelte van de sheet

Dank EvR, dat komt overeen met wat ik vond op YouTube