Herbers Excel-Forum - das Archiv

Letzter Speichertag von Datei

Bild

Betrifft: Letzter Speichertag von Datei
von: tino

Geschrieben am: 23.03.2005 18:35:31
Hallo,
möchte Sicherung abspeichern.Wie bekomme ich Speichertag
von "D:\versuch\Sicherung\versuch.xls" heraus?
Application.DisplayAlerts = False
if speichertag = date - 1 then '????Speichtag?????
ActiveWorkbook.SaveAs Filename:= _
"D:\versuch\Sicherung\versuch.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
end if

ActiveWorkbook.SaveAs Filename:= _
"D:\versuch\versuch.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Application.DisplayAlerts = True
Bild

Betrifft: AW: Letzter Speichertag von Datei
von: ransi
Geschrieben am: 23.03.2005 18:46:07
hallo tino
die letzte speicherung geht so:
Public
Sub t()
dim speichertag
speichertag=Format(ThisWorkbook.BuiltinDocumentProperties(12).Value, "DD.MM.YY")
MsgBox speichertag
End Sub

ransi
Bild

Betrifft: cdate() vergessen...
von: ransi
Geschrieben am: 23.03.2005 18:50:09
hallo tino
Public
Sub t()
Dim speichertag
speichertag = CDate(Format(ThisWorkbook.BuiltinDocumentProperties(12).Value, "DD.MM.YY"))
MsgBox speichertag
End Sub

ransi
Bild

Betrifft: AW: cdate() vergessen...
von: tino
Geschrieben am: 23.03.2005 20:37:59
Die sicherunsdatei ist nicht offen.
Brauche Datum von einer geschlossenen Excel Datei!
Bild

Betrifft: AW: cdate() vergessen...
von: Hajo_Zi

Geschrieben am: 23.03.2005 20:47:59
Hallo tino
FileDateTime(LaufwerkV & "Laser Muster.xls") _
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.


 Bild
Excel-Beispiele zum Thema "Letzter Speichertag von Datei"
Letzter Wert in Zeile Letzter Wert aus einem Bereich
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen Zeile mit letzter Fundstelle an letzte Position der Liste