Hallo allerseits,
ich hab’ Excel schon allerlei entlockt, aber hier bin ich ratlos, ob es geht und ggf. wie.
Ich habe eine Vorlage-Datei erstellt, die ich leicht verändert dann immer unter einem anderen Namen abspeichere. Ich würde gerne das Datum der Abspeicherung unter diesem neuen Namen jeweils automatisch einfügen lassen und dauerhaft erhalten wissen. Ich will also nicht HEUTE().
Wenn jemand Rat weiß, wäre ich sehr dankbar.
Ludwig
mit Makro!
Hallo Ludwig,
das ginge mit einem Makro, welches beim „Before_Save“-Ereignis den Speichernamen abfragt. Weicht dieser von der Vorgabe (der Vorlage) ab, schreibt das Makro das aktuelle Datum in eine Zelle.
Gruß
(Woly)
Hallo Woly,
danke für die schnelle Hilfe. Aaaaber, leider …
Dann würde bei jedem weiteren Abspeichern das Datum ja wieder aktualisiert.
Gruß
Ludwig
Nix aber…
Hallo Ludwig,
Du hast natürlich recht! Hier wäre eine zusätzliche Abfrage generell auf Änderung des Dateinamens nötig. Oder eine Prüfung, ob das Feld bereits ein Datum enthält. Beides sollte kein Problem sein…
Gruß
(Woly)
in word gibts ceratedate - wo ist das in Excel
Also in Word gibt das Feld CreateDate - ich frage mich schon lage wo das Ding in Excel ist. Deshalb fordere ich hier alle experten zum mitsuchen auf denn diese Frag tauch alle par monate im Forum auf.
Gruss
Nils
ceratedate - wo ist das in Excel? GENAU DAS!!!
Genau das suche ich auch!
Also in Word gibt das Feld CreateDate - ich frage mich schon
lage wo das Ding in Excel ist. Deshalb fordere ich hier alle
experten zum mitsuchen auf denn diese Frag tauch alle par
monate im Forum auf.
Gruß
Ludwig
Ich habe eine Vorlage-Datei erstellt, die ich leicht verändert
dann immer unter einem anderen Namen abspeichere. Ich würde
gerne das Datum der Abspeicherung unter diesem neuen Namen
jeweils automatisch einfügen lassen und dauerhaft erhalten
wissen. Ich will also nicht HEUTE().
Hi Ludwig,
probier mal das Folgende aus, das habe ich aus dem Inet gefischt und nur kurz getestet:
Sub cd()
Dim objFSO As Object
Dim objDatei As Object
Set objFSO = CreateObject(„Scripting.FileSystemObject“)
Set objDatei = objFSO.GetFile(ActiveWorkbook.FullName)
MsgBox objDatei.DateCreated
Set objDatei = Nothing
Set objFSO = Nothing
End Sub
Gruß
Reinhard
Hallo Reinhard,
ich danke dir. Doch die Sub erzeugt „nur“ eine Messagebox, die ich ansehen und mit OK bestätigen kann. Doch das Datum wird nicht in die Datei übernommen. Vielleicht weiß jemand, wie man die Spur weiter verfolgen kann.
Gruß
Ludwig
Hallo Reinhard,
ich danke dir. Doch die Sub erzeugt „nur“ eine Messagebox, die
ich ansehen und mit OK bestätigen kann. Doch das Datum wird
nicht in die Datei übernommen. Vielleicht weiß jemand, wie man
die Spur weiter verfolgen kann.
Hallo Ludwig,
meinst du mit ‚übernehmen‘ in eine Zelle der Tabelle schreiben, dann so z.B.:
Sub cd()
Dim objFSO As Object
Dim objDatei As Object
Set objFSO = CreateObject(„Scripting.FileSystemObject“)
Set objDatei = objFSO.GetFile(ActiveWorkbook.FullName)
'MsgBox objDatei.DateCreated
Range(„a1“).Value = objDatei.DateCreated
Set objDatei = Nothing
Set objFSO = Nothing
End Sub
Wenn nicht, dann erklär mir das ‚übernehmen‘ mal anders.
Gruß
Reinhard
Kurz vor dem Ziel?
Hallo Reinhard,
ich danke dir erneut.
Genau das meinte ich, wie du vermutest: einfügen in eine Tabellenzelle.
Dein Modul meldet aber noch einen Fehler in der Zeile
Set objDatei = objFSO.GetFile(ActiveWorkbook.FullName)
Wenn wir -äh, du - da noch abhelfen könntest, wäre es super.
Vielen Dank schon mal,
Ludwig