Excel Datei-Erstelldatum ermitteln

[DerLadendieb]

Hallo zusammen

evtl. kann mir einer von euch helfen.

Ich würde gerne von einer Excel Datei das Datei-Erstelldatum ermitteln und in der Excel Arbeitsmappe als Datum angeben.
Weiß zufällig jemand von euch wie ich das realisieren kann?



Also wichtig: es geht mir nicht um das "Inhalt erstellt" Datum, sondern um das markierte "Erstellt am" Datum.


Danke im voraus für eure Hilfe.

 

[Mr_J]

Ein

You do not have permission to view link please Anmelden or Registrieren

mit VBA gibts hier.

MfG
Mr. J

 

[drfuture]

Da kommst du leider nur per Makro / VBA dran.
mit Range("A1") = ActiveWorkbook.BuiltinDocumentProperties("Creation Date") wird das Datum in A1 geschrieben.
Wenn du das in

Private Sub Workbook_Open()

End Sub

schreibst - dann wird der Code beim laden der Excel-Datei ausgeführt.
In dem Makro-Editor kommst du mit Alt+F11

 

[tophirsch]

oder als Tabellenfunktion:

[src=vb]'
'=WM_FILEDATE() als formel in tabelle eintragen
'
Function wm_filedate() As Date
Application.Volatile

Dim fso As Object
Dim fsFile As Object

Set fso = CreateObject("Scripting.FileSystemObject")
Set fsFile = fso.GetFile(ThisWorkbook.FullName)



wm_filedate = fsFile.DateCreated ' - Erstelldatum

'wm_filedate = fsFile.DateLastModified ' - Letzte Änderung
'wm_filedate = fsFile.DateLastAccessed ' - Letzter Zugriff

End Function[/src]

Damit die Fuktion im Arbeitsblatt verwendbar ist, musste sie bei mir in einem Modul sein. (In der VBA Ansicht links im Projektfenster Rechtsklick>Einfügen>Modul>doppelklick auf neues Modul>obigen Code einfügen)

 

[DerLadendieb]

Danke an alle für die schnelle Antwort.

@Mr_J:

Diese Eigenschaften beziehen sich wie es aussieht auf das "Inhalt Erstelldatum" und nicht auf das "Datei Erstelldatum"


@drfuture

Dein Script gibt mir auch das "Inhalt Erstelldatum" aus.


@tophirsch

Dein Code scheint zu funktionieren - werde mir es noch genauer anschauen.


Danke nochmals an alle für die Hilfe!

 

[tophirsch]

Tja, beimir hat er zumindest funktionuckelt(Excel2010). Aber musste wie gesagt in nem Modul stehen, damit Excel die Funktion wahrnimmt. Die Zelle dann als Datum oder Zeit formatieren sollte ja klar sein...

 

[DerLadendieb]

Ja ist klar und hat auch bei mir geklappt. (Excel 2013)

Danke nochmals.