Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
'Deze functie is gemaakt door Wim de Groot (c) maart 2008
Function AANTALCELKLEUR(Bereik As Range, Kleurnummer As Integer) As Integer
Dim Cel As Range
For Each Cel In Bereik.Cells
If Cel.Interior.ColorIndex = Kleurnummer Then
AANTALCELKLEUR = AANTALCELKLEUR + 1
End If
Next Cel
End Function
=AANTALCELKLEUR(A1:A27;5)
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.