Function jec(rng As Range, clr As Range)
For Each it In rng
If it.Interior.Color = clr.Interior.Color Then jec = jec + it.Value
Next
End Function
Invoeren als:
=jec(B1:J1;A1)
Dus het op te tellen bereik is B1:J1 waarin cellen staan met een bepaalde waarde in een bepaalde kleur.
Cel A1 geef je de kleur die opgeteld moet worden.