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