Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, ich habe ein Makro, das kurz nach 00:00Uhr gestartet wird. Es soll Dateien, die sich jeden Tag zwischen 1 und 3 Uhr aktualisieren kopieren, wenn sie sich aktualisiert haben. Etwas konfus, aber ich hoffe es ist zu verstehen. Gibt es also eine Möglichkeit das Erstellungsdatum einer Datei zu überprüfen? Vielen Dank schonmal für Eure Hilfe. Gruß Fubajunkie

Hallo ,

mit nachfolgendem Makro wird das Erstelldatum einer Datei ermittelt. Kopiere es in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche.

Option Explicit

Sub Erstelldatum()
Range("A10") = CDate(ThisWorkbook.BuiltinDocumentProperties(11))
End Sub

Für weitere Hilfe fehlen Infos. Man müsste schon wissen, nach was für ein Kriterium das Datum geprüft werden soll.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich bitte wieder.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hallo Namensloser,

Ich habe mit CDate(ThisWorkbook.BuiltinDocumentProperties(11)) schon überraschungen erlebt. Ich würde eher folgendes benutzen

FileDateTime(LaufwerkV & "Laser Muster.xls")

wobei auf LaufwerkV der komplette Ordner steht.

Gruß Hajo

Hallo Hajo,

ich habe damit eigentlich noch keine schlechten Erfahrungen gemacht. Aber was nicht ist, kann ja noch kommen. Allerdings würde mich interessieren, womit Du schlechte Erfahrungen gemacht hast. Mit der "BuiltinDocumentProperties -Eigenschaft" oder mit der Umwandelfunktion "CDate" oder mit beiden zusammen?

Danke.

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Hallo Oliver,

mit BuiltinDocumentProperties -Eigenschaft.

Ich habe es sdchon paarmal erlebt das er das Erstellungsdatum der Vorlage übernommen hat. Ich arbeite mit eigenen Mustervorlagen.

Gruß Hajo

Hallo Hajo,

danke Dir für Deine Antwort. Da ich kaum mit Vorlagen arbeite, ist das Problem mit besagter Eigenschaft noch nicht aufgetreten.

MfG,
Oliver
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

Hallo zuammen,

so habe ich meinen Zeitstempel eingerichtet und noch nie Probleme damit gehabt.

Option Explicit

Sub Zeitstempel()
On Error Resume Next
Cells(1, 1) = "Erstellt am: " & CDate _
(ThisWorkbook.BuiltinDocumentProperties(11))
Cells(2, 1) = "Zuletzt gedruckt am: " & CDate _
(ThisWorkbook.BuiltinDocumentProperties(10))
Cells(3, 1) = "Zuletzt geändert am: " & CDate _
(ThisWorkbook.BuiltinDocumentProperties(12))
End Sub

Gruß Odje

Moin, genau das was ich gesucht habe. Gibts ne Möglichkeit, den Code beim Öffnen automatisch auszuführen?

Hallo nachfolgende Zeilen in das VBA-Projekt "DieseArbeitsmappe kopieren.

Private Sub Workbook_Open()
Call Makroname
End Sub

Anstelle dem Text "Makroname" muss dort der Name Deines Makros stehen.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Ja, hat funktioniert, danke =P

• Änderungsdatum in Excel
• Excel 2000 auf Vista
• Änderungsdatum Excel
• einzelnde Datenfelder aus einem Formular in einer Tabelle speichern