okay hab meinen fehler gefunden hab das mit den semikolon und den normalen kommas vertauscht gehabt. Trz hätte ich noch eine frage hier zunächst mal mein code:
a = 0
Do While a < 81
Cells(36 + a, 17).Select
ActiveCell.Formula = "=O36+Offset(N36,R$30/10,1,1,1)+Offset(N36,2*R$30/10,1,1,1)+Offset(N36,3*R$30/10,1,1,1)+Offset(N36,4*R$30/10,1,1,1)+Offset(N36,5*R$30/10,1,1,1)+Offset(N36,6*R$30/10,1,1,1)+Offset(N36,7*R$30/10,1,1,1)+Offset(N36,8*R$30/10,1,1,1)+Offset(N36,9*R$30/10,1,1,1)+Offset(N36,10*R$30/10,1,1,1)+Offset(N36,11*R$30/10,1,1,1)+Offset(N36,12*R$30/10,1,1,1)+Offset(N36,13*R$30/10,1,1,1)+Offset(N36,14*R$30/10,1,1,1)+Offset(N36,15*R$30/10,1,1,1)+Offset(N36,16*R$30/10,1,1,1)+Offset(N36,17*R$30/10,1,1,1)"
a = a + 1
Loop
Ich möchte nun, dass das Programm jedes mal wenn das a erhöht wird sprich er eine Zeile runter wandert, das O36 erhöht auf O37 dann auf O38 usw sprich mit dem a hochzählt. Genau dasselbe soll auch mit dem N36 in den Klammern geschehen sodasss alle N36 aus den Klammern und die O36 am anfang wenn die Schleife läuft mit jedem neuen a mit erhöht werden um 1. Vielen Dank schonmal!! ;) |