Excel und VBA: Formeln, Programmierung, Lösungen

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