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.

Plaats de UDF achter een normale module ipv achter een werkbladmodule

rechtermuisknop, invoegen, module

@Veerj
@Montagnard

Bedankt !
Beide oplossingen werken perfect.
Ik ben weeral gelukkig....!