Gruppe
Ereignis
Bereich
BeforeClose
Thema
Beim Schließen der Arbeitsmappe Datum und Zeit protokollieren
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