Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Erstelldatum auslesen

Forumthread: Erstelldatum auslesen

Erstelldatum auslesen
14.01.2003 09:10:39
steffen
Hallo,

ich möchte mit dem Befehl
Erstellt = ActiveWorkbook.BuiltinDocumentProperties(11)
das Erstelldatum auslesen.
Ich bekomme aber immer folgende Fehlermeldung:
"Run-time error '-2147467259(80004005)'
Automation error
Unspecified error"
Ich habe von WIN XP und Office XP die englische Version.
Ich hoffe mir kann jemand weiterhelfen.

Gruß
steffen

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Erstelldatum auslesen
14.01.2003 09:27:12
Steffen D
Hi

versuch mal diesen Befehl:
Erstellt = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

Gruß
Steffen D

Re: Erstelldatum auslesen
14.01.2003 09:33:58
steffen
Hallo,

leider hat der tipp nichts gebracht.
es kommt wieder die selbe fehlermeldung.

Re: Erstelldatum auslesen
14.01.2003 09:45:47
Klaus Kunkler
Hallo Steffen,
aus der Recherche auf die Schnelle :
Sub test()
Dim y
y = ActiveWorkbook.BuiltinDocumentProperties.Item(11)
MsgBox y
End Sub
Gibt das Erstellungsdatum zwar in einer Msgbox aus, kann aber via value abgeändert werden.
Gruss
Klaus

Anzeige
Re: Erstelldatum auslesen
14.01.2003 09:52:29
steffen
Leider funktioniert auch das nicht.
Sowie ich das verstehe kann der den Befehl "ActiveWorkbook.BuiltinDocumentProperties(11) "
nicht ausführen.
Re: Erstelldatum auslesen
14.01.2003 09:56:34
Knud
Hi Steffen,
Bei mir funktioniert das einwandfrei. Das Problem liegt nicht am Makro.

Knud

Re: Erstelldatum auslesen
14.01.2003 10:04:08
Klaus Kunkler
Hallo Steffen,
versuche doch mal testweise, die sonstigen builtin properties auszulesen (Name etc.)
Oder schaue mal nach, ob die Dokumenteneigenschaften mitgespeichert werden.
Gruss
Klaus
Anzeige
Re: Erstelldatum auslesen
14.01.2003 10:04:16
Steffen D
Hi,
mach mal folgendes,
erstelle dieses makro und setze einen Haltepunkt (F9) an die Stelle mit End Sub

Sub test()
Set wkb=ActiveWorkbook
End Sub

führe das makro aus, er bleibt dann beim end sub stehen, jetzt machst du das Lokal-Fenster auf (ansicht-Lokal-fenster) und schaust unter dem Eintrag "wkb" ob du da die Eigenschaft "BuiltinDocumentProperties" und darunter dann alle Items
Es liegt wahrscheinlich an der englischen version.

Gruß
Steffen

Anzeige
;
Anzeige

Infobox / Tutorial

Erstelldatum einer Datei auslesen mit VBA


Schritt-für-Schritt-Anleitung

Um das Erstelldatum einer Datei mit VBA auszulesen, kannst du die folgenden Schritte befolgen:

  1. Öffne den Visual Basic for Applications (VBA) Editor:

    • Drücke ALT + F11 in Excel.
  2. Erstelle ein neues Modul:

    • Rechtsklick im Projektfenster auf "VBAProject (DeinWorkbookName)" > Einfügen > Modul.
  3. Füge den folgenden VBA-Code ein:

    Sub AuslesenErstelldatum()
       Dim erstellt As Variant
       erstellt = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
       MsgBox "Das Erstelldatum ist: " & erstellt
    End Sub
  4. Führe das Makro aus:

    • Drücke F5 oder klicke auf Run.

Dieser Code verwendet die BuiltinDocumentProperties-Eigenschaft, um das Erstelldatum einer Datei auszulesen. Stelle sicher, dass du eine passende Excel-Version verwendest, um Komplikationen zu vermeiden.


Häufige Fehler und Lösungen

  • Fehler: "Run-time error '-2147467259(80004005)'"

    • Lösung: Überprüfe, ob die englische Version von Excel korrekt installiert ist und ob die Dokumenteneigenschaften gespeichert werden. Manchmal kann das Problem an den regionalen Einstellungen deines Systems liegen.
  • Fehler: "Automation error"

    • Lösung: Versuche den Code mit ActiveWorkbook.BuiltinDocumentProperties.Item(11) und achte darauf, dass du die Dokumenteneigenschaften richtig abfragst.

Alternative Methoden

Eine weitere Methode, um das Erstelldatum auszulesen, ist der Einsatz von Windows-Skripting. Hier ein Beispiel, wie du das mit VBA umsetzen kannst:

Sub AuslesenDateiErstelldatum()
    Dim fso As Object
    Dim Datei As Object
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set Datei = fso.GetFile(ActiveWorkbook.FullName)
    MsgBox "Das Erstelldatum ist: " & Datei.DateCreated
End Sub

Dieses Skript verwendet das FileSystemObject, um auf die Dateieigenschaften zuzugreifen.


Praktische Beispiele

  1. Erstelldatum in eine Zelle schreiben: Du kannst das Erstelldatum direkt in eine bestimmte Zelle deiner Arbeitsmappe schreiben:

    Sub ErstelldatumInZelle()
       Dim erstellt As Variant
       erstellt = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
       Worksheets("Tabelle1").Range("A1").Value = erstellt
    End Sub
  2. Änderungsdatum auslesen: Wenn du das Änderungsdatum einer Datei auslesen möchtest, kannst du den folgenden Code verwenden:

    Sub AuslesenAenderungsdatum()
       Dim aenderung As Variant
       aenderung = ActiveWorkbook.BuiltinDocumentProperties("Last Author")
       MsgBox "Das Änderungsdatum ist: " & aenderung
    End Sub

Tipps für Profis

  • Fehlerbehebung: Setze Haltepunkte im Code und benutze das Lokalfenster, um die Eigenschaften der Variablen zu inspizieren. Das hilft dir, besser zu verstehen, wo der Fehler liegt.
  • Dokumenteneigenschaften ansehen: Nutze den Befehl Debug.Print ActiveWorkbook.BuiltinDocumentProperties im Direktfenster, um alle verfügbaren Dokumenteneigenschaften anzuzeigen.

FAQ: Häufige Fragen

1. Kann ich das Erstelldatum auch für andere Dateitypen auslesen? Ja, das Prinzip bleibt dasselbe, jedoch musst du sicherstellen, dass die Datei die entsprechenden Eigenschaften hat.

2. Warum funktioniert der Befehl nicht in meiner Excel-Version? Stelle sicher, dass du die richtige Syntax verwendest und überprüfe, ob die Dokumenteneigenschaften gespeichert sind. Möglicherweise gibt es Unterschiede zwischen den Excel-Versionen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige