Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1140to1144
1140to1144
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach ESC Abbruch - 1 Befehl ausführen - Makro Ende

Forumthread: Nach ESC Abbruch - 1 Befehl ausführen - Makro Ende

Nach ESC Abbruch - 1 Befehl ausführen - Makro Ende
Araton
Hallo
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
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Nach ESC Abbruch - 1 Befehl ausführen - Makro Ende
06.03.2010 10:36:46
Heiko
Moin aus dem verschneiten Norden,
z.B. so:
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

Gruß Heiko
PS: Rückmeldung wäre nett !!!
Anzeige
Genau was ich wollte
06.03.2010 10:52:36
Araton
Hallo
Herzlichen Dank das ist noch besser als ich gedacht habe das es geht.
Vielen Dank
Gruß Araton
hier mal ein Beispiel dazu...
06.03.2010 10:37:25
Tino
Hallo,
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
Gruß Tino
Anzeige
Auch das ist super
06.03.2010 11:07:42
Araton
Hallo
Aber es springt durch Resume wieder ins Makro, und so mit muß ich den rechner 1 Woche Laufen lassen, bis das Makro durch ist.
Also nicht genau was ich heute suchte.
Aber für andere Makros Gold
Vielen Dank
Gruß Araton
war auch nur ein Beispiel und ...
06.03.2010 11:14:43
Tino
Hallo,
oft ist es der Fall das der Code durch ESC nicht unterbrochen werden soll.
Gruß Tino
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige