Danke für die letzte Hilfestellung nun hab ich wieder ein neues Problem :-)
addieren und subtrahieren
hier mein Ansatz
Sub Test()
Dim z
For z = 18 To 59
If Cells(z, 6)
wo ist mein denkfehler ?und wie bekomme ich nacht 7 Schritten eine Zwischensumme