VBA function niet zichtbaar

[JakobH]

Ik heb een nieuwe functie toegevoegd als VBA code aan een excel bestand die kleuren telt van een rij cellen.

Function KleurAantal(c As Range, b As Range) As Long
Dim x As Range
For Each x In b
If x.Font.Color = c.Font.Color And Not IsEmpty(x) Then
KleurAantal = KleurAantal + 1
End If
Next x
End Function

Als ik in de sheet deze functie wil gebruiken dan is de functie niet zichtbaar en geeft de melding #naam?
Blijkbaar wordt de functie niet herkend?

Ik gebruik overigens Excel 2010. Excel bestand is opgeslagen als excel bestand met macro's

 

[edmoor]

Dan heb je die functie vast niet in een Module gezet.

 

[SjonR]

Bij mij werkt het prima hoor! Edmoor heeft de oplossing al gegeven

 

[JakobH]

Dan heb je die functie vast niet in een Module gezet.

Hoe bedoel je?

 

[JakobH]

Bij mij werkt het prima hoor! Edmoor heeft de oplossing al gegeven

Bij mij niet.....

Moet overigens de achtergrond kleur tellen. Wat moet ik dan in de code veranderen?

 

[edmoor]

Ik bedoel dat je in je VBA project een Module moet invoegen en dat je daar dan de Functie in plaatst.

Voor het tellen van de achtergrondkleur:

Function KleurAantal(c As Range, b As Range) As Long
    Dim x As Range
    For Each x In b
        If x.Font.Color = c.Interior.Color And Not IsEmpty(x) Then
            KleurAantal = KleurAantal + 1
        End If
    Next x
End Function

Al vraag ik me af of die functie zo wel gaat werken maar daar kan ik zonder dat je een voorbeeld document plaatst niets over zeggen.

 

[JakobH]

Ik bedoel dat je in je VBA project een Module moet invoegen en dat je daar dan de Functie in plaatst.

Voor het tellen van de achtergrondkleur:

Function KleurAantal(c As Range, b As Range) As Long
    Dim x As Range
    For Each x In b
        If x.Font.Color = c.Interior.Color And Not IsEmpty(x) Then
            KleurAantal = KleurAantal + 1
        End If
    Next x
End Function

Al vraag ik me af of die functie zo wel gaat werken maar daar kan ik zonder dat je een voorbeeld document plaatst niets over zeggen.

Thanks het werkt nu. Soms kan het zo simpel zijn.....

 

[edmoor]

Ok dan. Graag gedaan
En gebruik ajb de Reageer op bericht knop in plaats van de Quote knop.