Hallo ihr Experten, ich habe folgendes Problem:
Ich möchte ein Makro erstellt, was entsprechende Daten summiert, abe rimmer nur Daten in entsprechenden Abstäzen. Ich glaube die Idee wird beim ProgrammCode klarer:
For i = 0 To Cells(1, 7) Step 1
Cells(i + 3, 1).Select
ActiveCell.FormulaR1C1 = "=SUM(Daten!R[(i-1)*35 ]C[3]:R[(i-1)*35+3 ]C[3])"
Cells(i + 3, 1).Select
Selection.AutoFill Destination:=Range(Cells(i + 3, 1), Cells(i + 3, 49)), Type:=xlFillDefault
Range(Cells(i + 3, 1), Cells(i + 3, 49)).Select
Next
Leider geht dies nicht, da er irgendwie das i von der Schleife nicht in die Summe einlesen kann.
ich hoffe ihr könnt mir helfen
vielen Dank
Grußt Turbotorbi |