Excel Vba Neue Datei Aus Vorlage Erstellen

Hey du! Na, auch wieder am Excel-Schreibtisch gefesselt? Kennen wir alle, oder? Aber heute machen wir's uns ein bisschen einfacher. Stell dir vor, du könntest mit 'nem kleinen Zaubertrick (aka VBA) aus einer Vorlage ruckzuck 'ne neue Excel-Datei erstellen. Klingt gut, oder? Ist es auch!

Warum überhaupt 'ne Vorlage?

Gute Frage! Denk mal drüber nach: Immer die gleichen Formatierungen, Überschriften, vielleicht sogar Formeln… Wer hat da schon Bock, das jedes Mal neu einzutippen? Eben! Eine Vorlage ist wie dein persönlicher Shortcut zum Excel-Himmel. Spart Zeit, Nerven und vielleicht sogar den ein oder anderen Wutausbruch vor dem Rechner. (Psst, kenn ich auch… 😉)

Vorlagen sind einfach Gold wert. Einfach. Gold. Wert. Merk dir das!

Der VBA-Code, unser Zauberstab

Okay, jetzt wird's ein bisschen "nerdig", aber keine Panik! Wir machen das easy. Der Code, den wir brauchen, ist eigentlich gar nicht so kompliziert. Versprochen! Und selbst wenn, einfach copy-pasten, wer liest schon deinen Code? (Nur Spaß! Aber ehrlich, er funktioniert, und das ist die Hauptsache, oder?)

Hier mal der Code-Schnipsel zum Anfixen. Wir gehen ihn dann Stück für Stück durch. Ist einfacher, als es aussieht. Glaub mir!

Sub NeueDateiAusVorlage()
  Dim strVorlagePfad As String
  Dim strZielPfad As String

  ' Pfad zur Vorlagendatei
  strVorlagePfad = "C:\Pfad\zur\deiner\Vorlage.xltx"  ' <-- **Hier musst du deinen Pfad eintragen!**

  ' Pfad für die neue Datei (optional, kann auch leer gelassen werden)
  strZielPfad = "C:\Pfad\wo\du\speichern\willst\NeueDatei.xlsx" ' <-- **Auch hier anpassen!**

  ' Neue Datei aus Vorlage erstellen
  Workbooks.Add strVorlagePfad

  ' Speichern der neuen Datei (optional)
  If strZielPfad <> "" Then
    ActiveWorkbook.SaveAs Filename:=strZielPfad, FileFormat:=xlOpenXMLWorkbook
  End If

  ' Optional: Excel-Fenster aktivieren und anzeigen
  ActiveWorkbook.Activate
  Application.Visible = True

End Sub

Schritt für Schritt zum Excel-Glück

Also, was macht dieser Code eigentlich? Lass uns das mal auseinandernehmen:

• Sub NeueDateiAusVorlage(): Das ist der Startpunkt, der Name unserer "Prozedur" (fancy Wort für Code-Abschnitt).
• Dim strVorlagePfad As String und Dim strZielPfad As String: Hier deklarieren wir Variablen. Stell sie dir wie kleine Behälter vor, in denen wir Informationen (in diesem Fall Text = "String") speichern.
• strVorlagePfad = "C:\Pfad\zur\deiner\Vorlage.xltx": Das ist der wichtigste Teil! Hier musst du den tatsächlichen Pfad zu deiner Vorlagendatei eintragen. Denk dran, inklusive Dateiname und Endung (.xltx)!
• strZielPfad = "C:\Pfad\wo\du\speichern\willst\NeueDatei.xlsx": Hier legst du fest, wo und unter welchem Namen die neue Datei gespeichert werden soll. Wenn du das weglässt (leer lässt), wird die Datei einfach als "Neue Arbeitsmappe" geöffnet und du kannst sie manuell speichern.
• Workbooks.Add strVorlagePfad: *Tada!* Das ist der magische Befehl, der die neue Datei aus der Vorlage erstellt.
• ActiveWorkbook.SaveAs Filename:=strZielPfad, FileFormat:=xlOpenXMLWorkbook: Dieser Teil speichert die neu erstellte Datei unter dem angegebenen Pfad. xlOpenXMLWorkbook sorgt dafür, dass es im modernen .xlsx-Format gespeichert wird.
• ActiveWorkbook.Activate und Application.Visible = True: Das sind optionale Befehle, die das neue Excel-Fenster aktivieren und sichtbar machen. Ist einfach netter, wenn man direkt sieht, was passiert ist, oder?

Wo kommt der Code hin?

Ganz einfach: In den VBA-Editor! Den erreichst du, indem du in Excel Alt + F11 drückst. Dann im Editor auf "Einfügen" -> "Modul" klickst und den Code da reinkopierst. Denk dran, die Pfade anzupassen!

Ausführen, fertig, los!

Um den Code auszuführen, gehst du im VBA-Editor auf "Ausführen" -> "Sub/UserForm ausführen" oder drückst einfach F5. Zack! Eine neue Datei aus deiner Vorlage sollte sich öffnen (oder gespeichert werden, je nachdem was du eingestellt hast).

Und? Läuft? Super! Wenn nicht, keine Panik. Check noch mal die Pfade, ob du alles richtig eingegeben hast. Manchmal liegt der Teufel im Detail. Und wenn's gar nicht klappt, einfach nochmal von vorne anfangen. Rom wurde auch nicht an einem Tag erbaut (und Excel-Automatisierungen auch nicht 😉).

Viel Spaß beim Automatisieren! Und denk dran: Excel VBA ist wie ein Schweizer Taschenmesser für Tabellen. Es gibt immer noch was Neues zu entdecken!