is het mss niet makkelijker om een extra kolom in te geven, bvb achter kolom E.  Hierin zet je dan bvb een '*'
Dit kan je nog altij opmaken zodat de letterkleur wit is, dan ziet niemand dat


en dan kan je in de kolom E als formule zetten

=als(F1="*";+A1+D1;"")


ik vrees dat berekeningen aan de hand van een celopmaak qua kleur en lettertype niet mogelijk is

Martin & Rosine,

Bedankt voor jullie reactie.
De macro werkt perfect.
Als een cel geel is dan krijg ik in kolom F de waarde 6 te zien.
Dit is eigenlijk niet de bedoeling.
Wat ik zoek is het totaal van de bedragen waarvan de cellen in kolom A geel zijn.

Voorbeeld:
A1 = wit      B1 = 100
a2 =geel     b2 = 50
a3= geel    b3  = 50
a4 = wit      b4 = 25
a5 = geel    b5 = 120
enz.

Het totaal dat ik nu graag wil zien in bv. F1 = 220.

Ik hoop dat mijn vraag nu een beetje duidelijker is.

Gr.
Eric

Eric,

Onderstaande macro zou ongeveer moeten doen wat jij wilt

Sub TotaalGeel()
LRij = Cells.Find("*", Range("A1"), xlFormulas, , xlByRows, xlPrevious).Row
For x = 1 To LRij
Cells(x, 3) = Cells(x, 1).Interior.ColorIndex
Next x
Range("D1") = "=IF(RC[-1]=6,RC[-2],0)"
Range("D1").Copy Destination:=Range("D2:D" & LRij)
Range("E1") = "=SUM(C[-1])"
End Sub

Probeer eens of je daarmee verder komt.

Beste groeten - Marrosi