Esc-Taste

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Esc-Taste
von: Alex
Geschrieben am: 28.05.2002 - 16:36:14

Hallo zusammen,

folgendes Problem;

Mein Makro macht gewisse Berechtigungskontrollen. Ich möchte verhindern, daß wenn die Esc-Taste gedrückt wird, daß Makro unterbrochen wird.
Gibt es eine Möglichkeit, daß wenn ich die Esc Taste drücke, daß Makro auf eine Sprungmarke verwiesen wird, und die MSGBox "Aktion abgebrochen" erscheint???

Danke im Vorraus,

Alex


nach oben   nach unten

Re: Esc-Taste
von: Monika Weber
Geschrieben am: 28.05.2002 - 18:30:54

Hallo Alex

Vielleicht hilft dir das weiter (getestet unter XL2000):


Sub test()
   Dim As Long
   On Error GoTo Errorhandler
   Application.EnableCancelKey = xlErrorHandler
     For i = 1 To 65536    ' Die Aktion wird 65536-mal ausgeführt
        Cells(i, 1).Select
     Next i
Errorhandler:
     If Err = 18 Then
        MsgBox "Sie haben abgebrochen"
     End If
End Sub

Es liebs Grüessli aus der Schweiz
Monika


Beiträge aus den Excel-Beispielen zum Thema "formel"