Thema: Beim Schließen der Arbeitsmappe Datum und Zeit protokollieren

Home

Gruppe

Ereignis

Problem

Wie kann ich bei jedem Schließen einer Arbeitsmappe in einem Arbeitsblatt dieser Mappe Datum und Zeit protokollieren lassen?

Lösung

Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

ClassModule: DieseArbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim iRow As Integer
   With Worksheets("Tabelle1")
      iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Cells(iRow, 1) = Date
      .Cells(iRow, 2) = Time
   End With
   On Error GoTo ERRORHANDLER
   ThisWorkbook.Save
   Exit Sub
ERRORHANDLER:
   MsgBox "Die Datei konnte nicht gespeichert werden!"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und BeforeClose

Workbook_BeforeClose + Cancel = True	Msg mit 2 Ereignissen +Cancel
Ereignisprozedur	Makro für ereignisabh. Druck verschiedener Seiten
UF Activate / Initialize Ereignis	Namen definiert- in Ereignis verwenden?
Zeilen aus- einblenden als Ereignis?	Welches Ereignis ist das richtige ??
Ereignis Arbeitsblatt sperren abfangen	Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis	Change-Ereignis in Combobox unterdrücken
Combobox Ereignis	Userform, Ereignis deklarieren im Klassenmodul
Welches Diagramm-Ereignis?	Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis	Ereignis von Laufzeit-Checkbox
change-ereignis bei dynamischen Controls / Teil 2	Change Ereignis verhindern
change-ereignis bei dynamisch erstellten Controls	Schaltfläche - Ereignis erst nach Bestätigung ausl
Objekt_Error - Ereignis in UserForm	change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?	Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse	Ausnahmen für Exit-Ereignis
Workbook_beforeClose umgehen	Exit-Ereignis SetFocus
Workbook_BeforeClose Problem	select Ereigniss UF Show
Ereignis zeitweise mit Fehler	Ereignismakro
Selectereigniss in Spalte	doppeltes Klick-Ereignis
Doppelklick-Ereignis	VBA Ereignis: Änderung der Hintergrundfarbe
Ereigniscode aus zwei Teilen fnk. nicht	Exit Ereignis einer Textbox im Frame
Change-Ereignis bei Auswahllisten	Problem mit Workbook_BeforeClose
Worksheet_Change Ereignis erweitern	Exit Ereignis springt nicht an
Exit-Ereignis	Ereignis "BeforeSave" - ".Find" geht nic
change ereigniss nicht ausführen Userform	Exit Ereignis
Rekursiven Aufruf von Ereignissen verhindern	Makro läuft nicht, falsches Ereignis?