Hallo zusammen
Wie kann ich das folgende Makro anpassen, das es mir beim Speichern mit der Tastenkombination CTRL S automatisch das Makro auslöst?
Sub FileDate()
ActiveSheet.Range("A1") = _
FileDateTime(ThisWorkbook.FullName)
End Sub
Besten Dank für jede Antwort.
Pascal
Liebe Pascal!
Doppelcklick im Projekt-Fenster des VBA-Editors auf DieseArbeitsmappe und füge folgenden Code ein:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.Range("c1") = _
FileDateTime(ThisWorkbook.FullName)
End Sub
Liebne Gruß
Rainer
Hallo Rainer
Besten Dank für die Lösung.
Gibt es eine Möglichkeit, das Speicherdatum sofort nach dem Speichern zu übernehmen, damit ich die aktuellste Variante habe.
Besten Dank für Deine Antwort.
Gruss
Pascal
Liebe Pascal!
Dieser Code schreibt das aktuelle Speicherdatum und die -uhrzeit in die Zelle C1 - bei jedem Speichern wird diese aktualisiert. Somit kannst du jederzeit die Zelle auslesen oder im Code die FileDateTime(..) einer Variablen zuweisen. Das 'On Error Resume Next' habe ich noch eingefügt, damit du z.B. auch keine Fehlermeldung bekommst, wenn du die Arbeitsmappe noch nie gespeichert hast! Dann musst du einfach sofort nochmals speichern, dann steht der Wert in der Zelle.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
ActiveSheet.Range("c1") = FileDateTime(ThisWorkbook.FullName)
End Sub
Lieben Gruß
Rainer
...
Das Archiv des Excel-Forums
