HERBERS Excel-Forum - die Beispiele

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?