Gekleurde cellen optellen

[kloosterofobie]

Beste elzer,

Ik heb in de bijalge een excel bestand toegevoegd. In dit bestand wil ik graag de rode cellen opgeteld hebben. Ik heb al op het forum gezocht en heb de volgende formule =TELKLEUR(cel met kleur;bereik) toegepast enkel geeft de uitkomst bij mij #NAAM?

Wat doe ik verkeerd?

gr. JeroenBekijk bijlage Kopie van overzichtmutatie woningen kalslagerring.xls

 

[ExcelAmateur]

kloosterofobie,

Met alleen de formule ben je er niet, je moet dan ook de functie (macro) gebruiken.
Die zal er ook wel in staan, kijk daar nog even.

 

[spaarie]

Deze mis je...

Function TELKLEUR(Bereik As Range, Kleurnummer As Integer) As Integer
Application.Volatile
Dim Cel As Range
For Each Cel In Bereik.Cells
    If Cel.Interior.ColorIndex = Kleurnummer Then
        TELKLEUR = TELKLEUR + 1
    End If
Next Cel
End Function

 

[ExcelAmateur]

Hier je file met de code erin.

 

[snb]

Lijkt me nogal evident:

=COUNTA(B18:B23;L18:L23;B34:B39;L34:L39;B50:B56;L50:L56)