Office: (Office 2010) Makro für Speicherdatum

Ich bräuchte das Makro für das letzte Speicherdatum:

Public Function Speicherdatum() As String
Application.Volatile
Speicherdatum = Format(FileDateTime(ThisWorkbook.FullName), "dd.mm.yyyy hh:mm")
End Function


Es müsste dieser Code sein und in eine Zeile der Excel Datei muss dann die Formel =Speicherdatum()


jedoch erscheint bei mir die Meldung #NAME? also wird wohl irgendetwas falsch eingestellt sein. Oder ist der Code vielleicht falsch?

 

Hallo,

Code:

… [COLOR="#0000CD"]FileDateTime(ThisWorkbook.FullName)[/COLOR] ...

dieser Code kann nur dann funktionieren, wenn die Arbeitsmappe gespeichert wurde, weil nur dann ein Eintrag in einem Dateiverzeichnis existiert und nur dieser dann ein Dateidatum haben kann.

Möchte man schon vorher eine Art Speicherdatum abfragen, müsste man auf die "ActiveWorkbook.BuiltinDocumentProperties" zugreifen, in denen Einträge wie zB. "Creation date" oder "Last save date" in der Regel vorhanden sind, wobei Letzteres das letzte automatische Hintergrundsichern der Arbeitsmappe durch Excel sein dürfte.

Die Abfrage dieser Eigenschaft müsste in etwa so erfolgen

Code:

Public Function Speicherdatum() As String
  Dim LetztSpeicherDatum As Date
  Application.Volatile
  LetztSpeicherDatum = ThisWorkbook.BuiltinDocumentProperties("Last save time")
  Speicherdatum = Format(LetztSpeicherDatum, "dd.mm.yyyy hh:mm")
End Function

Die Ausgabe all dieser vorhandenen Eigenschaften (BuiltinDocumentProperties bzw. CustomDocumentProperties) kann mit folgendem Makro im aktiven Arbeitsblatt erfolgen:

Code:

Public Sub EingebauteDokEigenschaften()
  Dim Zl&, p As Variant
  Dim Kopf$
  On Error GoTo Err_EingEig
  
  Zl = 1
  Kopf$ = "ActiveWorkbook.BuiltinDocumentProperties": GoSub Ueberschrift
  For Each p In ActiveWorkbook.BuiltinDocumentProperties
    GoSub WerteZeile
  Next p
  
  Kopf$ = "ActiveWorkbook.CustomDocumentProperties": GoSub Ueberschrift
  For Each p In ActiveWorkbook.CustomDocumentProperties
    GoSub WerteZeile
  Next
     
  Exit Sub
  
Err_EingEig:
  Cells(Zl, 2).Value = "nicht vorhanden"
  Resume Next

Ueberschrift:
  Cells(Zl, 1).Value = Kopf$ & "--------------------"
  Zl = Zl + 1
  Return
  
WerteZeile:
  With p
    Cells(Zl, 1).Value = .Name
    Cells(Zl, 2).Value = .Value
  End With
  Zl = Zl + 1
  Return
  
End Sub

 

Ja, das habe ich auch. Der Code steht in der DieseArbeitsmappe Und es ist auch gespeichert, aber es ist immer noch diese Fehlermeldung
#NAME?

 

Hallo,

wird dir diese Fehlermeldung angezeigt, wenn du in einer Arbeitsblattzelle die Formel "=Speicherdatum()" eingibst?

Falls das so sein sollte, dann bedeutet "#NAME?", dass die Funktion "Speicherdatum()" von Excel nicht gefunden wurde.
Offenbar hast du zwar die Funktion als "Public Function Speicherdatum() As String" deklariert, was ja ok ist.
Aber wahrscheinlich hast du sie nicht in ein allgemeines Codemodul gespeichert, sondern zB. in das Codemodul eines Arbeitsblattes oder eines Klassenmoduls oder einer Userform.

Falls du dich gerade im Arbeitsblatt befindest, kannst du zB. wie folgt vorgehen:

1. Die Tastenkombination Alt+F11 drücken, um in den VBA-Editor zu gelangen
2. Falls dort das Projekt-VBAProjekt-Fenster nicht angezeigt werden sollte, müsstest du die Tastenkombination Strg+R drücken
3. Jetzt müsste auf alle Fälle ein Fenster mit der Überschrift "Projekt - VBAProject" zu sehen sein - mit einer Liste, die als obersten Eintrag "VBAProject (… )" enthält.
4. Hierarchisch 1 Stufe tiefer müsste dann der Eintrag "Microsoft Excel Objekte" zu sehen sein und wieder 1 Stufe tiefer der Eintrag "DieseArbeitsmappe" (bzw. falls englisch "ThisWorkbook"), auf den dann die Auflistung der in der Arbeitsmappe enthaltenen Arbeitsblätter folgt. In diese darfst du deine Funktion nicht eingeben.
5. Auf gleicher Hierarchieebene wie "Microsoft Excel Objekte" müsste ein Listeneintrag "Module" zu sehen sein, der dann weitere untergeordnete Einträge (zB. "Modul1", …) enthält. Das sind diese allgemeinen Codemodul(e), in die du die benutzerdefinierte Arbeitsblattfunktion speichern must.
6. Falls der vorgenannte Eintrag nicht zu sehen sein sollte: Mit rechter Maustaste ins Projekt-Fenster klicken, in der Kontextliste auf den Eintrag "Einfügen..." zeigen und dann in der erscheinenden Unterauswahlliste den Eintrag "Modul" auswählen. Daraufhin wird das VBA-Codefenster für ein allgem. Codemodul angezeigt, in welches du deine Funktion eingeben musst.

 

Vielen Dank für diese detalierte Erklärung. Ich habe es genauso gemacht, nur leider erhalte ich immer noch diese Fehlermeldung.
Kann es vielleicht sein, dass in dem Code irgendwo ein Fehler ist? Vielleicht irgendwo ein Leerschritt zu viel?

 

Hallo,

die Meldung "#NAME?" im Arbeitsblatt bedeutet, dass Excel den Namen nicht finden kann, weil er nicht vorhanden ist.

Hast du die Excel-Datei als "*.xlsm"-Datei gespeichert?
Hast du Makros aktiviert (bzw. das Verzeichnis, in dem die Datei gespeichert ist, als vertrauenswürdigen Speicherort) in den Excel-Optionen eingestellt?
Hast du beim erstmaligen Start der Datei die Makros aktiviert?

 

Hallo,

hast du "=Speicherdatum()" als Formel eingegeben - also auch die öffnende und schließende Klammer am Schluss?

 

Ja hab ich.

 

Hallo,

1) hast du auch mein vorletztes Posting von 12:16 Uhr gelesen?

2) Oder verwendest du Excel in einer betrieblichen Umgebung, wo der Netzwerkverantwortliche des Betriebes per Systemrichtlinie die Verwendung von VBA-Makros verbietet?

Falls all dies nicht der Grund für das Nichterkennen des Namens "Speicherdatum" sein sollte, dann kann ich dir leider nicht mehr weiterhelfen.