Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1140to1144
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 !!!
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

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige