EnableCancelKey
25.03.2014 08:58:52
Berny
Hintergrund:
Ich habe ein Modul geschrieben zum Durchsuchen von Mappen welche ich ggf. abbrechen möchte wenn ich glaube das gewünschte gefunden zu haben. Ich darf das Modul aber nicht zu jeder Zeit abbrechen, da sonst eine der Mappen unzulässiger Weise Manipuliert werden könnte. Deshalb soll bei Abbruch eine bestimmte Routine ablaufen.
Da dieses Modul viel zu komplex ist um es ins Forum zu stellen habe ich versucht mein Problem auf ein einfaches Demo zu reduziere. (s.u.)
Problem:
Wenn ich nun dieses Demo laufen lasse und dabei die ESC-Taste betätige wird nicht wie ich erwartet habe zur Fehlerroutine gesprungen sondern das Modul beschleunigt abgearbeitet.
Was ist hier falsch?
Sub AbbruchTest()
On Error GoTo fehler
Application.EnableCancelKey = xlErrorHandler
For I = 1 To 10
Application.Wait (Now + TimeValue("0:00:01"))
Cells(1, 1) = I
Application.StatusBar = I
Next
'On Error GoTo fehler
'Application.EnableCancelKey = xlErrorHandler
For I = 1 To 10
Application.Wait (Now + TimeValue("0:00:01"))
Cells(1, 2) = I & " zweite Schleife"
Application.StatusBar = I & "zweite Schleife"
Next
Cells(1, 1).Interior.ColorIndex = 4
Application.StatusBar = ""
Exit Sub
fehler:
'Application.EnableCancelKey = 0
Application.Wait (Now + TimeValue("0:00:01"))
MsgBox "Abbruch"
Application.StatusBar = ""
End Sub
M.f.G.Berny