Einzelne Datein aus Vorlage per Marko speichern

Guten Morgen liebe Gemeinschaft,

ich muss für einen Kollegen, der leider kaum PC-Kenntnisse hat, Vorlagen für das Jahr 2024 kreieren. Es geht hier mehr oder weniger um Personalplanung.
Es gibt eine Musterdatei und diese Datei muss quasi für jede Woche des Jahres 2024 abgelegt werden (als KW01, KW02, KW03, etc.).
Ich könnte die Vorlagen-Datei jetzt 51x kopieren und umbenennen, aber da ich von Haus auf ein fauler Mensch bin muss es doch da eine Markomöglichkeit geben ;-)
Ich will also mittels der Musterdatei im Endeffekt "Speichern unter" und Dateinamen fortlaufend nummeriert ablegen:
KW01.xlsx, KW02.xlsx, KW03.xlsx, etc.
Da, wie oben beschrieben, der Kollege nicht die besten EDV-Kenntnisse hat, wäre es gut, wenn die erzeugten Kopien an dem Ort automatisch abgespreichert werden, wo die Musterdatei liegt (also KEINE Abfrage des Ablageortes).
Und als nettes Gimmick oben drauf wäre es schön, wenn das Makro vorab fragt, wieviele Kopien erstellt werden sollen und diese Eingabe als Basis für die Nummerierung im Dateinamen nimmt.
Hab jetzt mal testweise folgenden Code kriert:

 Sub Kalenderwochen_erzeugen()

'

' Kalenderwochen_erzeugen Makro

' Speichert die aktuelle Datei unter Dateinamen KW

'



'

    ActiveWorkbook.SaveAs Filename:= _

        "C:\Users\qwltg\Downloads\QwLtg-Transfer\2024\KW01.xlsx", FileFormat:= _

        xlOpenXMLWorkbook, CreateBackup:=False

        

            ActiveWorkbook.SaveAs Filename:= _

        "C:\Users\qwltg\Downloads\QwLtg-Transfer\2024\KW02.xlsx", FileFormat:= _

        xlOpenXMLWorkbook, CreateBackup:=False

        

            ActiveWorkbook.SaveAs Filename:= _

        "C:\Users\qwltg\Downloads\QwLtg-Transfer\2024\KW03.xlsx", FileFormat:= _

        xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Natürlich könnte ich o.g. Befehle 51x (für 51 Wochen) eintragen - aber das ist sicher nicht professionell.
Vielleicht könntet ihr mir da ja weiterhelfen. Vorab schon mal herzlichen Dank dafür.

Gruß,
Achim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

' Abfrage, für wie viele Wochen die Vorlage kopiert werden soll" Sub Dateinamen() cb = InputBox("Vorlagen für wie viele Wochen erzeugen?") ' Abfrage aktueller Speicherort der Vorlagendatei Dim currentWorkbook As String Dim currentWorkbookDir As String Dim Tabelle_save As String currentWorkbook = ActiveWorkbook.Name currentWorkbookDir = ActiveWorkbook.Path ChDir currentWorkbookDir ' Beginn des Wiederholungsbefehls (Wiederholen des Unterprogrammes "Speichern") For x = 1 To cb dValue = iCounter ' Hier folgt das eigentliche Speicherprogramm, dass aus der o.g. Eingabe einen Wert in den Dateinamen schreibt (KWxx) ActiveWorkbook.SaveAs Filename:= _ "C:\Users\qwltg\Downloads\QwLtg-Transfer\2024\KW" & iCounter, FileFormat:= _ xlOpenXMLWorkbook, CreateBackup:=False Next x End Sub

' Abfrage, für wie viele Wochen die Vorlage kopiert werden soll" Sub Dateinamen() cb = InputBox("Vorlagen für wie viele Wochen erzeugen?") ' Abfrage aktueller Speicherort der Vorlagendatei Dim currentWorkbook As String Dim currentWorkbookDir As String Dim Tabelle_save As String currentWorkbook = ActiveWorkbook.Name currentWorkbookDir = ActiveWorkbook.Path ChDir currentWorkbookDir ' Beginn des Wiederholungsbefehls (Wiederholen des Unterprogrammes "Speichern") For x = 1 To cb dValue = iCounter ' Hier folgt das eigentliche Speicherprogramm, dass aus der o.g. Eingabe einen Wert in den Dateinamen schreibt (KWxx) Dim KWo As Variant 'NICHT als Integer! If x > 10 Then KWo = "0" & x Else KWo = x ActiveWorkbook.SaveAs Filename:= _ "C:\Users\qwltg\Downloads\QwLtg-Transfer\2024\KW" & KWo, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False Next x End Sub

Hallo Piet,

habe den Fehler mit der 0 gefunden - das > Zeichen im Code müsste sein - dann klappt es dass die Wochen 1-9 als KW01, KW02 usw benannt werden und ab Woche 10 dann entsprechend KW11, KW12 etc.; das passt nun soweit.
Allerdings passt die Sache mit dem Speicherort noch nicht - wenn ich die Vorlagendatei in einen anderen Ordner kopiere, dann speichert er die erzeugten Kopien nicht dort ab.

Und noch was anderes:
Um das ganze für User zu erstellen, die nicht so fit am PC sind, wollte ich es als *.xlsm speichern und dort einen Button "Vorlagen erstellen" einfügen. Soweit so gut.
Führe ich das Makro aus, dann bekomme ich zum Einen die Fehlermeldung dass Makros nicht in Arbeitsmappen gespeichert werden können.
Wie kann ich diese Meldung umgehen?
Zum Anderen ist in jeder als *.xlsx-Kopie noch der ursprüngliche Button "Vorlagen erstellen" ersichtlich. Kann ich den irgendwie übers Makro entfernen lassen, sodass er bei den abgelegten Kopien nicht mehr ersichtlich ist?

Danke nochmals,

Gruß Achim

Beliebteste Forumthreads (12 Monate)

Einzelne Datein aus Vorlage per Marko speichern

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelne Datein aus Vorlage per Marko speichern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread