snb
Verenigingslid
- Lid geworden
- 12 jun 2008
- Berichten
- 19.728
Suggestie op de code van ronancio
Code:
Function KleurenTellen(rBereik As Range, rColor As Range) As Double
For Each rRange In rBereik
If rRange.Interior.ColorIndex = rColor.Interior.ColorIndex Then kleurentellen = kleurentellen+ rRange.Value
Next
End Function