Wenn ich ein Makro Abbreche mit ESC, möchte ich noch mit NOW das Datum und die Zeit in die Celle(1,1) schreiben.
Danach noch die normale Abruch Anzeige wäre super.
Gruß Araton
Sub testt()
Dim dblI As Double
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
Do
ActiveSheet.Range("A2") = dblI
dblI = dblI + 1
Loop
Exit Sub
handleCancel:
If Err = 18 Then
ActiveSheet.Range("A1") = Now
MsgBox "Makro wurde mit ESC unterbrochen!", vbCritical
End If
End Sub
Sub Beispiel_ESC()
Dim A As Long
Application.EnableCancelKey = xlErrorHandler
On Error GoTo ESC_Error:
For A = 1 To Rows.Count
Cells(A, 1) = A
Next A
On Error GoTo 0
ESC_Error:
If Err.Number = 18 Then
DoEvents
MsgBox "ESC wurde gedrückt (Zeitstempel: " & Format(Now, "dd.mm.yyyy hh:mm:ss") & ")"
Resume
End If
Application.EnableCancelKey = xlInterrupt
End Sub
getestet unter xl2007