Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

mit ESC Makro stoppen und dann speichern

Betrifft: mit ESC Makro stoppen und dann speichern von: olaf
Geschrieben am: 21.08.2004 18:49:15

Hallo liebe Excel Helfer,

ich habe ein Makro, welches ich mit ESC abbrechen kann.

Application.EnableCancelKey = xlErrorHandler

Ich möchte aber gerne, das nach dem Abbruch das Programm unter seinem Dateinamen (test.xls) schließt und automatisch gespeichert wird.

Was muus ich machen.

Danke für Eure Hilfe im Voraus.
Gruß
Olaf

  


Betrifft: AW: mit ESC Makro stoppen und dann speichern von: Matthias G
Geschrieben am: 21.08.2004 19:07:41

Hallo Olaf,

ein Beispiel:
Sub test()
On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
Do
[a1] = [a1] + 1
DoEvents
Loop Until 1 = 2

handleCancel:
ThisWorkbook.Close True
End Sub

Gruß Matthias


  


Betrifft: AW: an Matthias von: olaf
Geschrieben am: 21.08.2004 19:09:22

Hallo Matthias,
vielen Dank für Deine Mühe, habe es gerade eben auch selbe hinbekommen.
Danke nochmal
Gruß
Olaf


  


Betrifft: AW: Habs gerade hinbekommen!!! o.T. von: olaf
Geschrieben am: 21.08.2004 19:08:06




  


Betrifft: AW: mit ESC Makro stoppen und dann speichern von: NE
Geschrieben am: 21.08.2004 19:10:03

Abend Olaf,

hab nich probiert, folgendes sagt ein F1 auf EnableCancelKey:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Beispiel zur EnableCancelKey-Eigenschaft

In diesem Beispiel wird gezeigt, wie mit der EnableCancelKey-Eigenschaft eine benutzerdefinierte Abbruchbehandlung eingerichtet werden kann.

On Error GoTo handleCancel
Application.EnableCancelKey = xlErrorHandler
MsgBox "This may take a long time: press ESC to cancel"
For x = 1 To 1000000 ' Do something 1,000,000 times (long!)
' do something here
Next x

handleCancel:
If Err = 18 Then
MsgBox "You cancelled"
End If
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Also musste imho nach handleCancel sowas stehen:

handleCancel:
If Err = 18 Then
activeworkbook.close 1
End If

Aber wiegesagt nicht probiert :-( nur von meiner Logik her vermutet.

lg Nancy
--
A little experience often upsets a lot of theorie. ;;-))


  


Betrifft: spätes Mädchen ;-) o.T. von: NE
Geschrieben am: 21.08.2004 19:13:07

;-)


 

Beiträge aus den Excel-Beispielen zum Thema "mit ESC Makro stoppen und dann speichern"