Neue tabellenblätter über VBA erstellen

[Araxx]

Hallo zusammen,

Ich habe eine Liste von Namen auf einem Übersichtsblatt welche die Namen der Arbeitsblätter enthält die in meiner Mappe erstellt werden sollen. Diese sollen anhand einer Vorlage angelegt werden. Das klappt auch alles.

Der Code:

Sub NeuesBlatt()
Dim i, z As Double
ActiveSheet.Range("A1:A15").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets("Nur KW").Copy after:=Sheets(1)
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i
End Sub

Meine Vorlage heißt "Nur KW" und befindet sich ebenfalls in der Mappe. Wie kann ich den Code so anpassen dass dieses Blatt nicht zwangsläufig in der Mappe enthalten sein muss? Also im Code die ursprüngliche Mappe der Vorlage angeben oder den Dateipfad? Scheitere da leider gerade an der Umsetzung.

Vielen Dank für eure Hilfe,

LG Johannes

[Der Steuerfuzzi]

Hallo,

ungetestet:

Code:

Dim wb As Workbook
Set wb = Workbooks.Open("Pfad und Dateiname zur Vorlagendatei")
wb.Sheets("Nur KW").Copy after:=Sheets(1)
wb.Close False

[Araxx]

Hallo,

Vielen Dank für deine Antwort. Auf Anhieb hab ich es nicht hinbekommen. Wo soll ich dass denn in meinen Code integrieren? Meine VBA Kenntnisse sind sehr bescheiden, versuche mich gerade in das Programm einzuarbeiten.
Ich habe es jetzt vor:
        Sheets("Nur KW").Copy after:=Sheets(1)
eingefügt.

Für den Pfad habe ich den Pfad \ Dateiname eingesetzt. Ist das korrekt?

Vielen dank für deine Hilfe und schönes Wochenende ;)

LG Johannes

[Der Steuerfuzzi]

Versuch es mal so:

Code:

Sub NeuesBlatt()
Dim i, z As Double
ActiveSheet.Range("A1:A15").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
Dim wb As Workbook
Set wb = Workbooks.Open("Pfad und Dateiname zur Vorlagendatei")
For i = 1 To z
wb.Sheets("Nur KW").Copy after:=Sheets(1)
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i
wb.Close False
set wb = nothing
End Sub

[Araxx]

Hallo,

Erstmal vielen Dank für die Antwort. Ich kam leider erst jetzt dazu den Code zu testen.
Wenn ich ihn so kopiere und den Dateipfad einfüge, öffnet sich bei ausführen des Codes jedoch einfach ein neues Fenster mit der Datei meiner Vorlage. die Vorlage öffnet sich nur einmal und nicht anhand der erstellten Liste (A1:A15).

LG Johannes