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