Hallo Jürgen,
Option Explicit
Dim LoLetzte As Long
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(LoLetzte - 1, 2) = Now
.Cells(LoLetzte - 1, 3).Formula = "=" & .Cells(loetzte - 1, 2).Address & "-" & .Cells(LoLetzte - 1, 1).Address
.Cells(LoLetzte - 1, 3).NumberFormat = "[h]:mm:ss"
End With
End Sub
Private Sub Workbook_Open()
Dim LoI As Long
Dim LoJ As Long
Dim StMeldung As String
With Worksheets("Tabelle3")
LoLetzte = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
.Cells(LoLetzte, 1) = Now
End With
End Sub
In Tabelle3 wird das Protokoll geführt
Gruß Hajo