VBA Addieren

[schauan]

Hallöchen,

wenn in .cells(n,6) immer ein Tageswert steht, dann würdest Du diesen mit .Cells(n, 6).Value = w überschreiben.
Oder hast Du zwischen den Wochen Leerzellen? Dann ginge das recht einfach, im Prinzip

...
w = w + .Cells(n, 6).Value
...
If .Cells(n, 6).Value = "" Then .Cells(n, 6).Value = w: w = 0
...

Damit trägst Du in die leere Zelle die Summe ein und setzt w auf 0 zurück.