Sicherung Speicher mit Kalenderwoche

[FaDos]

Hallo,

ich möchte eine Sicherungsdatei automatisch speichern.
Dateiname sollte Lauten „DB-Sicherung    KW41“
=> es sollte immer die letzte KW Woche sein!

Im Moment mache ich es manuell
=> Speicher die Datei
=> und benehme es dann um

Wie kann ich es automatisch machen lassen?
           

Code:

' Zieldatei Speichern
   ActiveWorkbook.SaveAs Filename:="DB-Sicherung  KW41.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
   ActiveWindow.Close

 

Danke

[schauan]

Hallo Fados,

ich nehme an, dass Du Dich etwas mit VBA auskennst? Du kannst im VBA auch auf die Tabellenfunktionen zugreifen und entsprechend die Kalenderwoche berechnen. Als kleine Hilfe für die Syntax kannst Du je mal die Formeleingabe im Blatt aufzeichnen ... Für das aktuelle Datum nimmst Du Date oder Now.

ActiveWorkbook.SaveAs Filename:="DB-Sicherung  KW" & dieFormel & ".xlsx" ...

Wenn Du die ersten Wochen auch zweistellig willst, musst Du noch ein Format Drumherum bauen, im Prinzip

...Format("00",dieFormel)...