Datei-Information auslesen (in Excel)

[Manuel Bratsch]

Betrifft: Datum von z.b. "mappe1.xls" auslesen, wann die Datei erstellt
wurde.

Hallo,

ich brauche unbedingt eine Funktion die das Erstelldatum einer Excel-Datei
in der Fusszeile ausgibt, also das Datei-Datum!
Mit "=Datum()" bekomme ich immer das aktuelle Datum!

Mit einem Makro/Funktion müßte das aber realisierbar sein, oder ?

Für schnelle Hilfe bin ich echt Dankbar,

schöne Grüße

Manuel Bratsch

[Tim Brandt]

Moin Manuel,

Post by Manuel Bratsch
ich brauche unbedingt eine Funktion die das Erstelldatum einer Excel-Datei
in der Fusszeile ausgibt, also das Datei-Datum!
Mit "=Datum()" bekomme ich immer das aktuelle Datum!
Mit einem Makro/Funktion müßte das aber realisierbar sein, oder ?

mit ThisWorkbook.BuiltinDocumentProperties("Creation date") kommst Du an
diese Eigenschaft.

Als Funktion könnte das so aussehen:

Public Function ErstellDatum()
ErstellDatum = ThisWorkbook.BuiltinDocumentProperties("Creation date")
End Function

--
Gruß aus dem Land Brandenburg

Tim Brandt
_________________________________
Excel 2000 SR-1 / OfficeProf. 2000 SP-2

[Manuel Bratsch]

Herzlichen Dank Herr Brandt,

und wie baue ich diese Funktion dort hinein ?

PS: Danke nochmals für Ihre schnelle Unterstützung, richtig gut !!

Gruß
Manuel Bratsch

Post by Tim Brandt
Moin Manuel,

Post by Manuel Bratsch
ich brauche unbedingt eine Funktion die das Erstelldatum einer Excel-Datei
in der Fusszeile ausgibt, also das Datei-Datum!
Mit "=Datum()" bekomme ich immer das aktuelle Datum!
Mit einem Makro/Funktion müßte das aber realisierbar sein, oder ?

mit ThisWorkbook.BuiltinDocumentProperties("Creation date") kommst Du an
diese Eigenschaft.
Public Function ErstellDatum()
ErstellDatum = ThisWorkbook.BuiltinDocumentProperties("Creation date")
End Function
--
Gruß aus dem Land Brandenburg
Tim Brandt
_________________________________
Excel 2000 SR-1 / OfficeProf. 2000 SP-2

[Tim Brandt]

Moin Manuel,

Post by Manuel Bratsch
Herzlichen Dank Herr Brandt,
und wie baue ich diese Funktion dort hinein ?

mit Alt+F11 den VBEditor öffnen, oben links das entsprechende Projekt (die
Arbeitsmappe) öffnen und mit einem 'Rechtsklick' ein neues Modul einfügen.
Dort die Codezeilen einfügen und die Funktion kann wie jede andere auch in
eine Zelle geschrieben werden. Also bspw =ErstellDatum()

Post by Manuel Bratsch
PS: Danke nochmals für Ihre schnelle Unterstützung, richtig gut !!

man(n) tut was man kann :-) Freut mich immer, wenn ich weiterhelfen kann.

--
Gruß aus dem Land Brandenburg

Tim Brandt
_________________________________
Excel 2000 SR-1 / OfficeProf. 2000 SP-2

[Manuel Bratsch]

Hallo Tim Brandt,
es funktioniert in der Tabelle, aber nicht in der Fußzeile !
Mit =erstelltdatum() gehts nicht? Wie muß ich es dort angeben ?

Schöne Grüße und danke nochmals

Manuel Bratsch

Post by Tim Brandt
Moin Manuel,

Post by Manuel Bratsch
Herzlichen Dank Herr Brandt,
und wie baue ich diese Funktion dort hinein ?

mit Alt+F11 den VBEditor öffnen, oben links das entsprechende Projekt (die
Arbeitsmappe) öffnen und mit einem 'Rechtsklick' ein neues Modul einfügen.
Dort die Codezeilen einfügen und die Funktion kann wie jede andere auch in
eine Zelle geschrieben werden. Also bspw =ErstellDatum()

Post by Manuel Bratsch
PS: Danke nochmals für Ihre schnelle Unterstützung, richtig gut !!

man(n) tut was man kann :-) Freut mich immer, wenn ich weiterhelfen kann.
--
Gruß aus dem Land Brandenburg
Tim Brandt
_________________________________
Excel 2000 SR-1 / OfficeProf. 2000 SP-2

[Tim Brandt]

Moin,

Post by Manuel Bratsch
Hallo Tim Brandt,
es funktioniert in der Tabelle, aber nicht in der Fußzeile !
Mit =erstelltdatum() gehts nicht? Wie muß ich es dort angeben ?

da hab ich gepennt und mich vom "=Datum()" blenden lassen :-( Aber das mit
der Fußzeile soll kein Problem darstellen. Wieder in den VBEditor, diesmal
'DieseArbeitsmappe' doppelklicken und die folgenden Codezeilen einfügen.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterFooter = _
Format(ThisWorkbook.BuiltinDocumentProperties("Creation date"), "dd.mm.yyyy
hh:mm:ss")
End Sub

Anstatt CenterFooter kann auch LeftFooter oder RightFooter gewählt werden.

--
Gruß aus dem Land Brandenburg

Tim Brandt
_________________________________
Excel 2000 SR-1 / OfficeProf. 2000 SP-2