Taste F9 automatisieren

Hallo Leute,
ich habe ein kleines Problem bei dem Ihr mir hoffentlich helfen könnt.
Ich habe ein kleines VB-Makro welches mir das Datum der letzten Speicherung eines Dokumentes ausgibt (hab ich hier aus dem Forum)...dies sieht folgendermaßen aus:


Function savedate()
Application.Volatile
savedate = ActiveWorkbook.BuiltinDocumentProperties(12).Value
End Function

aufgerufen wird es dann in der Excel-Mappe mit "=senddate()".
Das Problem ist, daß das aktuelle Datum quasie erst angezeigt wird, wenn ich Speichere und dann mittels der Taste F9 aktualisiere oder das Dokument nach der Speicherung neu öffne.
Besteht irgendwie die Möglichkeit nach dem Drücken der Speichertaste oder der Tastenkombination STRG+S, also nach dem Speichern des Dokumentes das Drücken der F9 Taste zu automatisieren? Ich möchte also das Datum der letzten Speicherung sofort nach dem Speichern angezeigt haben ohne eine zusätzliche Taste drücken zu müssen.
Ich hoffe Ihr könnt mir eine kleine Hilfestellung geben.
Danke schonmal!
Paul S.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

OK - dann von vorn..
Jede Mappe hat sog. "Ereignisse", bei denen bestimmte Prozeduren abgearbeitet werden.
Solche Ereignisse werden z.B. bei Änderung einer Zelle, beim Klicken in der Tabelle, beim Öffnen einer Mappe oder aber auch - und dieses Ereignis werden wir uns hier zunutze machen - beim Speichern.
Das Ereignis, das beim Speichern einer Mappe ausgelöst wird heißt "Workbook_BeforeSave"
Alles, was in der zugehörigen Ereignis-Prozedur steht, wird in diesem Moment abgearbeitet.
Wie findest du diese Prozedur?
Zunächst mit ALT+F11 zum VBA-Editor. Dort siehst du links die einzelnen "Module" deiner Mappe. Es gibt eins für jede Tabellenseite und dann noch eins, das für die ganze Mappe gilt. Das heißt "DieseArbeitsmappe". Da müssen wir hin. Doppelklicke darauf. Rechts kommt jetzt ein leeres weiße Seite. Darüber siehst du 2 Combo-Boxen. n der linken steht momentan noch "(Allgemein)". Klicke dort und wähle "Workbook". Rechts müßte nun "Open" stehen (das wäre die Prozedur, die beim Öffnen der Mappe abgearbeitet wird. Dort wählst du nun statt "Open" das Ereignis "BeforeSave" aus. Es wird ein leeres Prozedurgerüst angelegt. Und dorthinein schreibst du nun deine Anweisung:


Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Sheets("Tabelle1").Range("A1") = BuiltinDocumentProperties(12).Value
End Sub

Viel Erfolg!

Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Calculate Function savedate() Application.Volatile savedate = ActiveWorkbook.BuiltinDocumentProperties(12).Value End Function Allerdings verhält es sich noch nicht ganz wie ich es mir wünsche. Der Wert wird erst aktualisiert, wenn ich nach dem Drücken des Speicherbuttons nochmal einen Wert ändere und dann in eine neue Zelle gehe oder Enter drücke. Kann der Wert nicht gleich aktualisiert werden, wenn ich Speichere?

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread