VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Beim Schließen der Arbeitsmappe Datum und Zeit protokollieren

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

    


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