Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1056to1060
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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.

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

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige