Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Beim Schließen der Arbeitsmappe Datum und Zeit protokollieren

Gruppe

BeforeClose

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