Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei mit akt. Tagesdatum speichern. Wie?

Datei mit akt. Tagesdatum speichern. Wie?
05.03.2009 14:54:05
stefan
hallo,
ich ändere fast jeden tag etwas an einer datei. wie kann ich beim speichern automatisch eine version mit dateiname_aktuelles_datum.xls anlegen?
danke für eure hinweise.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei mit akt. Tagesdatum speichern. Wie?
05.03.2009 15:19:00
UweD
Hallo
ich gehe davon aus, daß die Datei bereits ein Datum an Ende besitzt... (welches dann ersetzt wird)
hier 2 Lösungen:


Sub Speichern()
    Dim Verz$, Datei$, AltName$, Endung$, OK As Boolean
    Verz = "C:\Temp\"
    Endung = ".xlsm" 'oder .xls  bei XL2003
    'Angenommen die aktuelle Datei ist "Testdatei_20090305.xlsm"
    AltName = ThisWorkbook.Name
    Datei = Left(AltName, Len(AltName) - 8 - Len(Endung)) & Format(Date, "yyyymmdd") & Endung
    '11****** Datei mit aktuellem Datum sichern
    ThisWorkbook.SaveAs Filename:=Verz & Datei
    'oder
    '22****** Datei mit aktuellem Datum sichern Verzeichnis evtl ändern
    ChDir Verz
    OK = Application.Dialogs(xlDialogSaveAs).Show(Verz & Datei)
    If OK <> True Then Exit Sub
    '22***
End Sub


Tipp: nimm das amerikanische Datumformat, dann werden die Dateien chronologisch im Explorer angezeigt.
Gruß UweD
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige