Hallo liebes Forum,
ich bin ein VBA-Neuling und versuche mich gerade an einer For Next-Schleife mit einem variabel zu vergebenden Namen.
Hintergrund: Ich habe eine Quelldatei (Template), in dieser ist eine Liste mit Hyperlinks. ich möchte gerne der Reihe nach die Liste mit den Hyperlinks öffnen, Daten aus der Quelldatei in 5 Zielsheets kopieren. Ziel soll sein, das alle zuvor gemachten Änderungen im Quellsheet (Template) auf die anderen Sheets ausgerollt ist..
Mir fehlt der Ansatz, wie ich die Zielsheets variabel gestalten kann, sodass immer das neu geöffnete Sheet in der Schleife angesprochen wird.
Sub Daten_Kopieren()
'
' Daten_Kopieren Makro
Dim i As Integer
For i = 2 To 6
Sheets("Projekte").Select
Cells(i, 7).Activate
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("Quelldatei.xlsx").Activate
Sheets("Daten").Select
Range("A1:D19").Select
Selection.Copy
Windows("Projekt 1.xlsx").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Save
ActiveWindow.Close
Next
Lieben Dank im Voraus :)
Johannes
|