Ich habe mittels VBA-Recorder ein Makro aufgenommen, dass ich nun erweitern und gleichzeitig vereinfachen will. Das Makro sieht in etwa folgendermaßen aus:
Sub Berechnung()
Range("C8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "50"
Range("D8:F8").Select
Application.CutCopyMode = False
Selection.Copy
Range("D9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "100"
Range("D8:F8").Select
Selection.Copy
Range("D10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' (... so geht das dann in 50er-Schritten bis z.B. 1000 weiter)
End Sub
In Zelle C8 wird in 50er-Schritten eine Zahl eingegeben (Bereich: 50-1000, ich habe oben in der Formel bei 100 abgeschnitten), welche in den Zellen D8, E8, F8 je einen anderern Wert ergibt (über Formeln im "normalen" Excel). Für jeden Schritt sollen diese Werte von D8:E8 in die nächste Zeile, aber jeweils in derselben Spalte (ggf. über die dort existierenden Einträge), eingetragen werden. Für die Eingabe von "50" in Zelle C8 sollen also die Zellen D8:E8 in die entsprechenden Zellen D9:E9 kopiert werden, für den Wert "100" in Zelle C8 sollen die Werte von D8:E8 dann in D10:E10 eingetragen werden usw. Dabei können (aus vorigen Berechnungen) in den Zellen der Zeilen 9, 10, 11, ... auch schon Zahlen stehen, die dann bitte überschrieben werden sollen.
Als Lösung vermute ich ja etwas wie
For i = 50 To 1000 Step 50
...
Next i
aber ich weiß halt nicht, wie ich dass mit dem Kopieren in die darunterliegenden Zellen machen soll...
Kann jemand meinen Ausführungen folgen und weiß Rat?
Vielen Dank für alle Antworten im Voraus!!
Gruß
tantevollmilch