Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
628to632
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
628to632
628to632
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

laufenden Code stoppen

laufenden Code stoppen
01.07.2005 11:31:08
Thomas
hallo weltbestes Forum
wie kann ich einen laufenden Code stoppen, außer durch ESC.
ich möchte eine zeitgesteuerte Programmschleife durch irgend etwas (Taste, Button oä) abbrechen, ohne, dass die Fehlerabfrage auf dem Bildschirm erscheint.
Kann mir jemand einen Tipp geben.
Vielen Dank im Voraus
Gruß Thomas S.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: laufenden Code stoppen
01.07.2005 11:58:55
ANdreas
Hallo Thomas,
hier mein Vorschlag:
Private blnStop As Boolean

Sub StopMakro1()
blnStop = True
End Sub



Sub Makro1()
Dim i
blnStop = False
' Dein normales Makro um DoEvents und die Abfrage nach Abbruch ergänzen
i = 0
Do
i = i + 1
If i Mod 1000 = 0 Then DoEvents
Loop Until blnStop Or i = 5000000
MsgBox i
End Sub

Beide Makros einfach jeweils einem Button zuweisen!
Gruß
Andreas
AW: laufenden Code stoppen
01.07.2005 12:25:54
Heiko
Hallo Thomas,
du kannst die Fehlermeldung auch abfangen. Dann drückst du zwar ESC aber es kommt keine Fehlermeldung. Siehe meinen Codeausschnitt.
' Das abbrechen einer Schleife über dir ESC Taste für zu einem Fehler und einer EXCEL
' Meldung, um die zu unterdrücken springt das Sub zur Marke ErrorHandler und beendet
' das Sub ohne Fehlermeldung.
On Error GoTo Errorhandler
Application.EnableCancelKey = xlErrorHandler
' Schleife für die Animation
Do
' Zelle G15 aktivieren da sonst EXCEL die Grafiken nicht aktualisiert.
Range("G15").Select

' Werte für die x-Achsen Animation hochzählen.
Worksheets("Grafik").Range("B1").Value = X
X = X + 0.01744444444

' Unterbrechen dieser Schleife nur mit ESC Taste möglich.
Loop
Errorhandler:
Gruß Heiko

PS: Rückmeldung wäre nett !
Anzeige
AW: laufenden Code stoppen
01.07.2005 16:49:43
Thomas
Ich werde die beiden Vorschläge heute Abend testen.
Vielen Dank für eure Tipps.
Gruß Thomas

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige