Automatisches Abspeichern mit Datum

Forumthread: Automatisches Abspeichern mit Datum
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Automatisches Abspeichern mit Datum

04.05.2007 12:05:00

Andreas

Hallo zusammen,
ich möchte gern mein Speichern mit dem Tagesdatum oder noch lieber mit KW.Jahr speichern (weiß nicht ob das zweite aber geht)?
ActiveWorkbook.SaveAs Filename:="D:\LFSG-FPR.xls"
Was muss ich dafür ergänzen?
Vielen Dank für die Hilfe.

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Automatisches Abspeichern mit Datum

04.05.2007 12:40:21

Jürgen
AW: Automatisches Abspeichern mit Datum

04.05.2007 12:46:02

Beni
AW: Automatisches Abspeichern mit Datum

04.05.2007 16:07:38

Andreas

AW: Automatisches Abspeichern mit Datum

04.05.2007 12:40:21

Jürgen

Hallo Andreas,
versuch mal das:
ActiveWorkbook.SaveAs Filename:="D:\LFSG-FPR" & Format(Now, "ww.yyyy") & ".xls"
Gruß
Jürgen

AW: Automatisches Abspeichern mit Datum

04.05.2007 12:46:02

Beni

Hallo Andreas,
mit Kalenderwoche.
Gruss Beni
Dim KW As Date
KW = 4 + Date - Weekday(Date, 2)
Kalenderwoche = (KW - DateSerial(Year(KW), 1, -6)) \ 7
ActiveWorkbook.SaveAs Filename:="D:\LFSG-FPR" & Kalenderwoche & ".xls"

AW: Automatisches Abspeichern mit Datum

04.05.2007 16:07:38

Andreas

Hallo Jürgen,
deine Version finde ich etwas leichter und kürzer, reicht für meine Anwendung vollkommen aus. Aber vielen Dank an beide und ein schönes WE.
VG Andreas