|
Moin zusammen,
afgrund von unzulänglichen VBA-Kenntnissen habe ich ein für mich nicht zu lösendes Problem:
Ich möchte eine Simulation durchführen. Hierbei soll die Zelle D1 hintereinander die werte 7 bis 12 annehmen. nach jedem neuen Wert soll eine Zelle aus einem anderen Blatt in eine neue Arbeitsmappe kopiert werden. Hierbei ist es wichtig, dass die Zelle in die kopiert werden soll sich jeweils um eine Zeile nach unten verschiebt, so dass ich dann eine Zeitreihe bekomme. Am ende soll es folgender massen aussehen:
D1: zu verändernde zelle (Werte: 7, 8, 9, 10, 11, 12)
J34: nimmt je nach Wert von D1 einen anderen Wert an
J34 soll nach jeder Änderung in eine neue Arbeitsmappe kopiert werden wobei der Wert für D1=7 in die Zelle B2 der neuen Arbeitsmappe:
Endergebniss:
B2 --> J34 wenn D1=7
B3-->J34 wenn D2=8
B4-->J34 wenn D2=9
B5-->J34 wenn D2=10
B6-->J34 wenn D2=11
B7-->J34 wenn D2=12
Ich habe es mit folgendem code versucht und bin gescheitert:
For i = 7 To 12
For j = 1 To 6
Windows("Test.xlsm").Activate
Sheets("SimulationI").Select
Range("D1").Select
ActiveCell.FormulaR1C1 = i
Range("E1").Select
ActiveCell.FormulaR1C1 = "1985"
Range("E2").Select
Sheets("Output").Select
Range("J34").Select
Selection.Copy
Windows("Ergebnisse Simulation.xlsx").Activate
Cells(1 + j, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next j
Next i
end sub
Bedanke mich vorab für die Unterstützung!!!
VG
|