Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Laufendes Makro per Commandbutton beenden

Forumthread: Laufendes Makro per Commandbutton beenden

Laufendes Makro per Commandbutton beenden
03.07.2007 15:03:00
Patrick
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Tach zusammen,
benötige mal wieder eure Hilfe.
Mit folgendem Makro lasse ich eine Autoform blinken.

Public Sub Wordart53_blinken()
Dim i As Byte
For i = 1 To 10
With Worksheets("Auswahl")
.Shapes("AutoForm 56").Visible = True     '.Line.ForeColor.SchemeColor = 10
Sleep 500
DoEvents
.Shapes("AutoForm 56").Visible = False      '.Line.ForeColor.SchemeColor = 1
Sleep 500
DoEvents
End With
Next
End Sub


Das funktioniert soweit wunschgemäß. Nun möchte ich wenn ich auf einen Commandbutton drücke das das Makro sofort beendet wird.
Bitte um Hilfe !!!
Danke
Patrick

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Laufendes Makro per Commandbutton beenden
03.07.2007 18:25:22
Heiko
Hallo Patrik,
z,B so:
Dein Makro so erweitern, die Public Variable bolStop nicht vergessen und alles in ein allgemeines Modul.
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public BolStop As Boolean

Public Sub Wordart53_blinken()
Dim i As Byte
For i = 1 To 10
With Worksheets("Auswahl")
.Shapes("AutoForm 56").Visible = True     '.Line.ForeColor.SchemeColor = 10
Sleep 500
DoEvents
.Shapes("AutoForm 56").Visible = False      '.Line.ForeColor.SchemeColor = 1
Sleep 500
DoEvents
End With
If BolStop = True Then Exit For
Next
BolStop = False
End Sub


Dann einen Button im Blatt einfügen und diesen Code hinterlegen.


Private Sub CommandButton1_Click()
BolStop = True
End Sub


Gruß Heiko
PS: Rückmeldung wäre nett !

Anzeige
;

Forumthreads zu verwandten Themen

OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Makro über Hyperlink starten
Anfänger

Hallo Excelfreunde,
habe habe in einem Exceltool ein Hauptmenü, dass mich mit all meinen Arbeitsblättern via Hyperlinks verlinkt. Will nun, dass ich beim Anklicken eines bestimmten Links ein Makro durchgeführt wird. Habe durch auch ein Makro gefunden, dass mir helfen sollte, doch wird nun b...
28.01.2009 17:47:00
Thread-ID: 1044652
3 Beiträge
3 tabellen mit makro (auto_open) per vba starten
Yusuf

Hi,
ich habe folgendes Problem und komme nicht zu einer Loesung.
Ich oeffne von einem Arbeitsblatt aus drei weitere Arbeitsblaetter, welche Makros enthalten, die beim oeffnen der Arbeitsblaetter gestartet werden.
So sieht der nacheinander aufruf der Arbeitsblaetter aus.
Das Erge...
27.03.2009 12:56:55
Thread-ID: 1064587
5 Beiträge
Problem! Makro bzw. Function per Formel starten
Dennis

Hallo,
ich habe hier ein schier unlösbares Problem...
In A1 steht eine Zahl In B1: =WENN(A1>10;Makrostart();"")
Dann noch folgenden Code in einem Modul:
Function Makrostart() Call Makro End Function
Sub Makro() MsgBox "Test" End Sub
Wenn man dann eine Zahl >...
26.05.2009 09:45:44
Thread-ID: 1077282
7 Beiträge
alle makros abbrechen per button
thoemmy

Hallo Leute
Ich hab ein userform offen mit einem Button "abbrechen".
Im hintergrund laufen verschiedene makros hintereinader ab.
Wenn ich im userform nun den button drücken sollen ALLE makros beendet werden.
Gibts dafür einen allgemeinen befehl?
Ich versuchs grad über exit...
17.06.2009 22:41:33
Thread-ID: 1082399
8 Beiträge
2 Makros mit einer Schaltfläche ausführen?
Alex

Hi @ all!
Ich hab mal eine Frage:
Is es möglich zwei Makros, die sich auf unterschiedliche Blätter beziehen mit einer Schaltfläche auszuführen.
Das erste Makro filtert und kopiert Daten in das Tabellenblatt in welchem anschließend Zeilen eingefärbt werden sollen
Danke schon mal<...
16.07.2009 23:02:18
Thread-ID: 1089255
3 Beiträge
vba Code ausführen, bei Wechsel zu Excel
Karsten

Hallo und guten Abend,
ich wechsel von einer Internetseite mit der Tastenkombination Alt Tab zu Excel.
Bislang habe ich den vba Code einem Button zugewiesen und über diesen ausgeführt.
Nun soll dieser vba Code ausgeführt werden, wenn Excel den Focus erhält, wenn das entsprechende Ar...
14.08.2009 21:53:59
Thread-ID: 1096096
6 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
VBA-Code ausführen bei Änd. v. Pivotabellen | Herbers Excel-Forum
Al
Hallo,
ich möchte VBA-Code ausführen lassen, wenn in einer Pivotabelle ein Zeilen-,Spalten oder Seiten-Feld verändert/ausgewählt wird.
Worksheet_Calculate kann ich nicht nutzen, da der Code selbst im Worksheet Änderungen durchführt, die wieder Worksheet_Calculate aufrufen.
Worksheet_Ch...
15.01.2010 15:04:20
Thread-ID: 1130302
4 Beiträge
Datei mit Button starten
Michael

Hallo Leute,
ich habe eine Exceldatei namens "Test.xls" sowie ein AVIfile(Ferien.avi)auf CD-Rom gebrannt.Nun möchte ich nachdem ich Test.xls gestartet habe, mit einem Button in "Tabelle1" das Video starten.Hat jemand eine Idee wie der Code in dem Button aussehen muss ??
Danke im voraus.
11.04.2002 01:45:49
Thread-ID: 112282
3 Beiträge
2 Code mit ein Button starten
Volker

Hallo liebe Excelgemeinde.
Ich hatte vor einiger Zeit mal einen Code der per Button ausgelöst wird gefunden, der beim erste Klick den Blattschutz ausstellt und beim zweiten Klick wieder einstellt. Der Code wurde beim öffnen der Arbeitsmappe gestartet, und beim Abspeicher wird der Blattschu...
07.02.2010 15:19:43
Thread-ID: 1136575
4 Beiträge
Anzeige
Makro per Button kopieren
Tobias

Hallo,
das folgende Makro funktioniert über "Makro ausführen" aber nicht über den CommandButton. Kann mir jemand sagen, was am Makro bzw. Command Button geändert werden muss?
Ich möchte per click auf den Command Button das Textfeld in Tabelle 2, Feld I28 kopieren. Leider kommt da immer...
21.02.2010 21:11:04
Thread-ID: 1140153
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige