CountByColour

[AtroX]

Hoi,

ik heb in Visual Basic in Excel 2007 een nieuwe module aangemaakt en deze code geplakt:

Function CountByColour(CountRange As Range, FindColour As Range) As Long
    
    Dim ColourCount As Long, c As Range
    ColToFind = FindColour.Interior.ColorIndex
    If ColToFind = 1 Then
        ColToFind2 = -4105
    Else
        ColToFind2 = ColToFind
    End If
    Application.Volatile
    For Each c In CountRange
        If c.Font.ColorIndex = ColToFind Or _
            c.Font.ColorIndex = ColToFind2 Then
            ColourCount = ColourCount + 1
        End If
    Next
    CountByColour = ColourCount
   
End Function

De bedoeling is dus dat alle cellen geteld worden waarin de vulkleur overeenkomt met die van een gekozen cel.

Wanneer ik deze functie uitvoer dan krijg ik de melding van #NAME. Wat loopt er mis?


groetjes

 

[ExcelAmateur]

AtroX,

Kijk eens op deze link, misschien kun je er wat mee.

 

[AtroX]

Dank je wel voor de link maar...

als ik het voorbeelddocument uit de laatste post open dan staat er naast elk kleur #NAME

het moet een instelling of dergelijke zijn...

 

[ExcelAmateur]

Ik heb die file ook gedownload en moet zeggen hij werkt perfect hier.
Zal hem hier ook plaatsen.
De file is gemaakt door Warme bakkertje.

 

[AtroX]

Bedankt!