---

Hallo zusammen,

ich habe eine Funktion definiert (ist unter Module gespeichert):

Function ZuletztGespeichert()
  ZuletztGespeichert = _
  ThisWorkbook.BuiltinDocumentProperties("last save time")
End Function

Wenn ich aber die Datei Öffne aktualisiert es die Zelle nicht automatisch, in welcher ich das Speicherdatum der Datei angegeben habe.
(=VERKETTEN("aktualisiert ";TEXT(ZuletztGespeichert();"TT.MM.JJ")))

Versucht habe ich es bereits mit folgenden zwei Sachen in der "DieseArbeitsmappe", funktioniert aber leider nicht:

Private Sub Workbook_Open()
  Call ZuletztGespeichert
End Sub

Sub Auto_Open()
Call ZuletztGespeichert
End Sub

Wenn ich manuell in die Zelle gehe "Enter" drücke wird diese korrekt aktualisiert.

Hat jemand gerade einen Tipp welcher mir weiterhilft?

vielen Dank schon Mal 

PS: Berechnungsoptionen ist auch auf automatisch

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hey,
ich frag' mal nach, zur Sicherheit:

Zitat:

---

Wenn ich aber die Datei Öffne aktualisiert es die Zelle nicht automatisch

---

Beim Öffnen wird m.E. nicht gespeichert   - oder doch? Deine Variable ZuletztGespeichert enthält doch das Speicherungsdatum der vorherigen Sitzung, und damit ist alles richtig.

Öffnen + Speichern, dann aktualisieren?

[Edit: Oder, falls Du das aktuelle Datum haben möchtest, fix codiert, ohne Makro: Strg + . für Tagesdatum, Strg + : für die Uhrzeit /Edit]

[Diese Nachricht wurde von Paulchen am 24. Aug. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Speicherdatum ist der 24.8., in der Zelle wird jedoch der 23.8. ausgewiesen...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hm...

Breakpoint/Haltepunkt setzen vor dem ThisWorkbook.BuiltinDocumentProperties... wird wenig nutzen, fürchte ich, da Du, um's zu testen, die Mappe schließen musst, und damit wäre der Breakpoint futsch.

Zwei zusätzliche Variablen ins Makro, eine mit "DatumVormSchliessen" und eine mit "DatumNachDemÖffnen", erst dann das Makro ausführen lassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ehm... jetzt müsstest du mir mit dem Code weiterhelfen, habe mir die Codes aus dem Netz zusammengesetzt 

ich kann nachvollziehen was die Codes machen aber selber dichten, ist leider noch ne Stufe zu hoch - sorry

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Code:

---

Function ZuletztGespeichert()

Range("B4") = "aktualisiert " & ThisWorkbook.BuiltinDocumentProperties("last save time")

End Function

---

Zelle B4 ist die Zelle, in der's bei Dir stehen soll. Bitte anpassen. Das Format ist TT.MM.JJJJ SS:MM:ss per Voreinstellung, es lässt sich ggf. noch anpassen. Formel brauchst Du dann keine mehr in der Zelle ,-).

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus, warum nicht gleich ganz VBA?

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  Range("Version") = Now
End Sub

oder gleich ins Namesfeld "Version"

------------------
<----- Bitte Systeminfo eintragen, warum siehst du hier.
Wünsche:
Tabllen (XLS,ODS) FDO nativ einbinden,  FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF
Fehler:
FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben

Schöne Grüsse aus der Steiermark  Bernd P.

[Diese Nachricht wurde von Bernd P am 24. Aug. 2016 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP