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

Makro unterbrechen und fortsetzen

Forumthread: Makro unterbrechen und fortsetzen

Makro unterbrechen und fortsetzen
25.12.2004 20:30:40
Marce
Hi zusmmen,
ich hab nochmal ein problem:
Ich will ein Makro, der ziemlich lange arbeitet eventuell unterbrechen. dann soll er fragen, ob man das wirklich will - wenn nicht fortsetzen.
Meine lösung bisher: unterbrechen mit Strg+Untbr (enableCancelKey)...
aber dann kann ich nicht fortsetzen (oder doch?)
ne lösung mit nem abbrechen -Button wäre mir noch lieber - aber da tut bei mir gar nichts, weil vb dummerweise keine threads unterstützt *g*
vielen dank für die hilfe (@Hajo: ein tipp reicht vielleicht auch schon - brauch nur ne anregung *g*)
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
F5 ?
ransi
hallo marce
ginge sendkeys {F5} ?
ransi
AW: F5 ?
Marce
nein
AW: F5 ?
25.12.2004 23:10:14
Josef
Hallo Marce!
Probier mal:
(Abbruch mit ESC)

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Const VK_ESCAPE = &H1B

Public Sub test()
Do
If GetAsyncKeyState(VK_ESCAPE) = -32767 Then _
If MsgBox("Wollen sie wirklich abbrechen?" & Space(10), _
vbYesNo + vbQuestion, "Abbruch") = vbYes Then Exit Sub
Loop
End Sub
Gruß Sepp
Anzeige
AW: F5 ?
Marce
Hi Sepp,
ich hab dein Code nicht ausprobiert, aber das was du da hast ist im prinzip ein KeyListener, oder?
Aber das bringt mir nichts, weil ich das ja nicht ständig abfragen kann....
Ich werd es aber trotzdem mal ausprobieren (nur nicht mehr heute)
AW: Makro unterbrechen und fortsetzen
25.12.2004 21:54:00
Matthias
Hallo Marce,
mein Vorschlag:
ein nichtmodales Userform (ShowModal = False), mit einem Button und folgendem Code:
Private Sub CommandButton1_Click() Abbruch = True End Sub (Abbruch ist eine globale Variable)
dann als Beispielcode:
Option Explicit
Public Abbruch As Boolean
Sub test()
Dim i As Long, ende As Long
ende = 100000
Abbruch = False
UserForm1.Show
For i = 1 To ende
DoEvents
If Abbruch Then
Abbruch = False
If MsgBox("Wirklich abbrechen?", vbQuestion + vbYesNo) = vbYes Then
Unload UserForm1
MsgBox "Abbruch bei " & i
Exit For
End If
End If
Next
Unload UserForm1
If i > ende Then
Unload UserForm1
MsgBox "Fertig!"
End If
End Sub
Vielleicht kannst du damit was anfangen?
Gruß Matthias
Anzeige
AW: Achso, Excel 97...
25.12.2004 22:06:05
Matthias
Hallo Marce,
sorry, die Version hab ich übersehen. Nichtmodal geht ja erst ab 2000.
Aber im Dialog mit Hajo weiter unten hast du ja schon eine Möglichkeit gefunden...
Übrigens gibt es bei Strg-Pause sehr wohl den Button "Fortstetzen", oder etwa auch nicht bei Excel 97?
Grüße,
Matthias
Anzeige
AW: Makro unterbrechen und fortsetzen
Marce
Hi Matthias,
danke, aber das bringt mich glaub auch nicht wirklich weiter, weil ich den Button nicht drücken kann, während der andere Makro läuft...
vb kann halt nichts gleichzeitig...
Das was funktioniert ist das abbrechen mit esc:
Application.enableCancelKey
On Error GoTo xy
......
xy:
blabla
aber wenn ich jetzt irgendwo esc drücke weiß ich nicht wo das war und kann nicht an die entsprechende stelle zurückspringen.
Anzeige
;

Forumthreads zu verwandten Themen

VBA Makro unterbrechen
Blacky

Hallo Ex(cel)perten,
ich möchte ein Makro debuggen. Das geht normalerweise ganz gut mit einem Breakpoint und F8. Allerdings handelt es sich hier um eine komplexe Schleife, die ich erst an einem gewissen Punkt anhalten und weiter debuggen möchte. Mit einem Breakpoint gelingt das leider nicht...
22.01.2009 11:53:39
Thread-ID: 1042509
4 Beiträge
Makro abbrechen, wenn ....
WalterK

Hallo,
Ich möchten in meinen Code einen Abbruch einbauen, wenn neben der aktiven noch andere Excel-Dateien offen sind.
Es soll dann der Hinweis kommen, dass "Der Code abgebrochen wird und zuerst die anderen Excel-Dateien beendet werden sollen!".
Danke für Eure Hilfe und
Servus,...
05.06.2011 17:58:16
Thread-ID: 1217358
11 Beiträge
Anzeige
Makro abbrechen, wenn ... NEU
WalterK

Hallo,
ich hatte mein Vorhaben eigentlich schon aufgegeben (hier mein 1. Versuch https://www.herber.de/forum/archiv/1216to1220/t1217358.htm), habe dann aber doch weiter gegoogelt und habe die Lösung schon fast erreicht.
Ich möchte erreichen, dass der Beispielcode "Sortieren" mit einer M...
06.06.2011 22:55:44
Thread-ID: 1217478
5 Beiträge
VBA Code anhalten
Climbi


Hallo
Ich möchte den VBA Code an einer bestimmten Stelle anhalten bis in einer bestimmten Zelle
eine Eingabe gemacht wurde.
Wenn ich das mit
Do
While Until....
mache dann dreht Excel (verständlicherweise) durch.
Komme selber leider auf keine Lösung.
Vielen...
03.09.2012 20:45:53
Thread-ID: 1277287
7 Beiträge
VBA Makro abbrechen, Excel automatisch schließen
Jan

Hallo zusammen,
folgende Situation:
Der Benutzer gibt Daten in der Vorlage.xlsm ein und startet daraus ein Makro. Nun greift das Makro mit sverweis auf eine Quelldatei (Excel) zu (Datei wirdgeöffnet, Daten werden per sverweis zugeordnet, Formeln durch Werte ersetzt und die Datei wieder...
07.12.2013 01:23:18
Thread-ID: 1341648
3 Beiträge
Excel-VBA-Makro unterbrechen
Sporleder

Guten Tag,
ich bin neu hier und hoffe Hilfe zu finden. Ich sitze seit einiger Zeit an einer Prozedur und komme einfach nicht weiter.
Die Prozedur soll Daten importieren und als einfache Liste in einem Tabellenblatt darstellen. Soweit kein Problem.
Danach soll der Dialog zum öffnen e...
25.02.2014 13:18:37
Thread-ID: 1351075
2 Beiträge
Anzeige
Makro abbrechen wenn....
Spenski

huhu ich mal wieder
wie muss ich das schreiben das wenn Private Sub CommandButton1_Click() Select Case -1 * OptionButton1.Value & -1 * OptionButton2.Value & -1 * OptionButton9.Value Case "000" MsgBox "Bitte Schicht wählen" End Select zutrifft (also die meldung kommt) der rest des m...
31.03.2014 21:21:19
Thread-ID: 1355596
13 Beiträge
VBA Makro: Spalten ausblenden wenn Bereich = "0 x"
hual

Hallo zusammen!
Ich bin mit VBA wenig bis gar nicht vertraut und hätte gerne ein Makro welches mir die Spalten F:O ab Zeile 8 durchsucht und wenn dort nur "0" UND "0 x" vorkommen, sollte diese Spalte ausgeblendet werden.
ich hab dazu schon was in die Richtung gefunden, etwas editiert ab...
22.09.2014 15:18:58
Thread-ID: 1382850
6 Beiträge
Zählenwenn direkt?,- Leitfaden Makrorekorder->VBA
urs

Guten Abend
ich habe heute versucht dieses Zählenwenn mit Direktadressierung zum Laufenzu bringen. Doch ohne Erfolg. Stelle mir vor, dass ein Freak den Fehler sofort erkennt.

Range("L2").Select
ActiveCell.FormulaR1C1 = "=IF(A2grösser0,COUNTIF($K$2:K2,K2),"""")"

Eine Fr...
05.10.2014 22:04:46
Thread-ID: 1384958
3 Beiträge
Anzeige
VBA Excel Makro WENN Funktion mit ChrW 10004
braun

Guten Abend,
und zwar habe ich eine Excel Mappe mit zwei verschiedenen Tabellenreitern.
In dem ersten Tabellenreiter ist ein Makro abgelegt, dass mir bei nacheinanderfolgendem Klicken einer Zelle (A3) einen Haken (ChrW Unicode), Kreuz (auch über Unicode) oder NA anzeigt.
Das klappt...
28.01.2015 19:04:39
Thread-ID: 1405856
14 Beiträge
Anzeige
vba : Code kurzfristig anhalten bis ...
udo

Hallo Forum, bräuchte bitte eure Hilfe ...
Ich starte einen Ausdruck folgendermaßen :
Das ganze rufe ich für ein Tab2 auf ( ich befinde mich aber in Tab1 dabei ).
Wenn ich das Makro starte, beginne ich mit :
Application.ScreenUpdating = False ' ( zum Schluss dann wieder ...= Tru...
07.02.2019 13:05:38
Thread-ID: 1673980
5 Beiträge
Makro abbrechen, wenn Dateiname...
Xico
Hallo Forumsteilnehmer,

lautet der Dateiname "Vorlage Testabteilung.xls", so soll mein Makro dann abgebrochen werden, wenn das Wort "Vorlage" noch als Dateiname besteht (d.h. wenn die Datei "Testabteilung JUN03.xls" heisst, soll Makro ausgeführt werden).

Folgendes funktioniert nich...
11.12.2003 14:58:07
Thread-ID: 350816
3 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Makro unterbrechen und fortsetzen

Schritt-für-Schritt-Anleitung

Um ein Excel-Makro zu unterbrechen und später fortzusetzen, kannst du die folgenden Schritte befolgen:

  1. Erstelle ein neues Modul in deinem VBA-Editor.

  2. Definiere eine globale Variable, um den Abbruchstatus zu speichern. Füge den folgenden Code hinzu:

    Public Abbruch As Boolean

  3. Erstelle ein UserForm mit einem Button, der das Makro abbrechen soll. Füge den folgenden Code in den Button ein:

    Private Sub CommandButton1_Click()
   Abbruch = True
End Sub

  4. Implementiere die Hauptschleife in deinem Makro. Hier ein Beispiel, wie du die Abbruchbedingung nutzen kannst:

    Sub test()
   Dim i As Long, ende As Long
   ende = 100000
   Abbruch = False
   UserForm1.Show
   For i = 1 To ende
       DoEvents
       If Abbruch Then
           Abbruch = False
           If MsgBox("Wirklich abbrechen?", vbQuestion + vbYesNo) = vbYes Then
               Unload UserForm1
               MsgBox "Abbruch bei " & i
               Exit For
           End If
       End If
   Next
   Unload UserForm1
   If i > ende Then
       MsgBox "Fertig!"
   End If
End Sub

  5. Starte das Makro. Du kannst nun das Makro unterbrechen, indem du auf den Button im UserForm klickst.

Häufige Fehler und Lösungen

  • Problem: Das Makro lässt sich nicht unterbrechen.

    • Lösung: Stelle sicher, dass du DoEvents in deiner Schleife verwendest. Dadurch wird Excel in die Lage versetzt, auf Benutzerinteraktionen zu reagieren.

  • Problem: Der Abbruch funktioniert nicht in älteren Excel-Versionen.

    • Lösung: In Excel 97 kannst du die ESC-Taste verwenden, um das Makro abzubrechen. Verwende Application.EnableCancelKey = xlErrorHandler im Code.

Alternative Methoden

  1. VBA Code Anhalten: Anstelle eines Buttons kannst du die ESC-Taste verwenden, um das Makro zu unterbrechen. Dies erfordert die Aktivierung der EnableCancelKey.

    Application.EnableCancelKey = xlErrorHandler

  2. VBA Skript abbrechen: Nutze eine Tastenkombination wie Strg + Pause, um das Makro zu stoppen. Du kannst dann mit F5 fortsetzen.

Praktische Beispiele

Hier ist ein einfaches Beispiel für ein Makro, das eine Endlosschleife beinhaltet und unterbrochen werden kann:

Sub Endlosschleife()
    Do
        ' Deine Logik hier
        If SomeCondition Then Exit Do
        DoEvents
    Loop
End Sub

Wenn du Application.EnableCancelKey auf xlErrorHandler setzt, kannst du das Makro mit ESC abbrechen.

Tipps für Profis

  • Verwende UserForms, um eine bessere Benutzererfahrung zu gewährleisten. Dadurch kannst du dein Makro elegant unterbrechen und fortsetzen.
  • Füge Logging-Funktionen hinzu, um den Fortschritt deines Makros zu verfolgen. Das hilft dir zu wissen, an welcher Stelle du das Makro unterbrochen hast.
  • Teste deine Makros gründlich, insbesondere die Abbruch- und Fortsetzungslogik, um sicherzustellen, dass sie wie gewünscht funktionieren.

FAQ: Häufige Fragen

1. Wie kann ich ein Makro in Excel stoppen?
Du kannst ein Makro mit Strg + Pause stoppen oder eine benutzerdefinierte Abbruchslogik im Code implementieren.

2. Gibt es eine Tastenkombination, um ein VBA-Makro zu unterbrechen?
Ja, du kannst die ESC-Taste verwenden oder Strg + Pause für eine sofortige Unterbrechung.

Beliebteste Forumthreads (12 Monate)

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