@edmoor, over welk bestandje heb je het?
En anders
Gewoon een aantal voorwaarden in de UDF opnemen. Om mij onduidelijke reden werkt Instr niet zoals ik wil dus maar even een extra variabele.
En anders
Gewoon een aantal voorwaarden in de UDF opnemen. Om mij onduidelijke reden werkt Instr niet zoals ik wil dus maar even een extra variabele.
Code:
Function KleurenTellen(Bereik As Range, Kleur As Range)
For Each cl In Bereik
t = LCase(cl.Value) = "v" Or LCase(cl.Value) = "z"
If cl.Interior.Color = Kleur.Interior.Color Then KleurenTellen = KleurenTellen + 1 + t
Next cl
End Function