VBA SaveAs Syntax Dateiname Datum parametrisiert

[Torsten]

Guten Abend zusammen!

In (m)einem Makro steht die Zeile

ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname.xlsx",

Mein Ziel ist nun, daraus

ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname%aktuellesDatum%.xlsx",

zu machen. Aktuelles Datum soll dabei immer das tagesaktuelle Datum im Format dd.mm.yyyy sein.


Vielen Dank im Voraus!
Torsten

[Käpt'n Blaubär]

Hallo Torsten,

ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname.xlsx",

Mein Ziel ist nun, daraus

ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname%aktuellesDatum%.xlsx",

wenn Du Deine Datei wirklich als *.xlsx gespeichert hast, hast Du gar kein Makro mehr drin
weil Excel sie beim Speichern automatisch rausgeschmissen hat.
Dateien mit Makros müssen zwingend als *.xlsm oder *.xlsb gespeichert werden.

Um Deine Frage vernünftig beantworten zu können solltest Du besser das ganze Makro und nicht
nur eine einsame Codezeile zeigen. Deklarationen gehören z.B. nämlich ebenfalls zu dieser Zeile.

[Steffl]

Hallo Torsten,

versuchs mal so (unter der Anmerkung von Peter)

Code:

ActiveWorkbook.SaveAs Filename:="Pfad\Dateiname" & Format(Date,"dd.mm.yyyy") & ".xlsb",

[schauan]

Hallöchen,

Nur mal ein Hinweis.
Es ist nicht gesagt, dass hier das ActiveWorkbook auch das Makro enthält. Entsprechend kann die Datei auch gerne als xlsx gespeichert werden, wenn der Code noch gebraucht wird und anderswo steht.

[Käpt'n Blaubär]

Hallo Ande,

Nur mal ein Hinweis. 

Es ist nicht gesagt, dass hier das ActiveWorkbook auch das Makro enthält. Entsprechend kann die Datei auch
gerne als xlsx gespeichert werden, wenn der Code noch gebraucht wird und anderswo steht.

das weiß ich, und wenn es sinnvoll ist, programmiere ich auch so.
Ich halte es zwar nicht für unmöglich. denke aber eher nicht, das
soetwas beim Fragesteller vorliegen könnte.

[RPP63]

Moin auch von mir!
Die Übergabe der Dateiendung an den String erachte ich als überflüssig.
Wichtiger ist für mich die Angabe des FileFormat:=

Code:

ActiveWorkbook.SaveAs "Pfad\Dateiname" & Format(Date,"dd.mm.yyyy"), xlOpenXMLWorkbook

Statt xlOpenXMLWorkbook (.xlsx) nimmt man [b]xlOpenXMLWorkbookMacroEnabled[/b] (.xlsm), wenn die Makros erhalten bleiben sollen.

Begründung:
Nur eine (evtl. falsche) Dateiendung anzugeben, führt zu einer Fehlermeldung.

Gruß Ralf

[Torsten]

Vielen herzlichen Dank für die Hilfe!

So sieht das Makro nun final aus:

Sub RSU()

'
' RSU Makro
' Register_speichern_unter
' ' REM ActiveWorkbook.SaveAs "Pfad\Dateiname" & Format(Date,"dd.mm.yyyy"), xlOpenXMLWorkbook

'
    Sheets(Array("Zahlen", "andere Zahlen")).Select
    Sheets("andere Zahlen").Activate
    Sheets(Array("Zahlen", "andere Zahlen")).Copy
       ActiveWorkbook.SaveAs "C:\Users\NAME\Documents\RSU " & Format(Date, "dd.mm.yy") & ".xlsx", xlOpenXMLWorkbook, CreateBackup:=False
        
        
End Sub

Aus einer umfangreichen Datei werden definierte Register als Tagesbericht zusammengefasst. Das Zieldokument muss das Makro daher nicht mehr enthalten.

Eine Frage dazu habe ich noch: Das Makro hinterlässt die Ursprungsdatei im Gruppenmodus. Wie kann ich ihm das noch abgegewöhnen?

[Kuwer]

Hallo Torsten,

Eine Frage dazu habe ich noch: Das Makro hinterlässt die Ursprungsdatei im Gruppenmodus. Wie kann ich ihm das noch abgegewöhnen?

Indem Du es ihm gar nicht erst angewöhnst!

Sub RSU()

 Sheets(Array("Zahlen", "andere Zahlen")).Copy

 ActiveWorkbook.SaveAs "C:\Users\NAME\Documents\RSU " & Format(Date, "dd.mm.yy") & ".xlsx", xlOpenXMLWorkbook, CreateBackup:=False

End Sub

Gruß Uwe

[Torsten]

Perfekt, Dank auch an Dich, Uwe!