Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
880to884
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
880to884
880to884
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen 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
Anzeige
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
Anzeige
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
Makro über anderes Makro starten
Chris

Hi zusammen!
In meiner Excel-Mappe habe ich mehrere Sheets (Sheet2 bis Sheet4), auf dem sich jeweils ein Button befindet. Per Knopfdruck importiert ein dem jeweiligen Button hinterlegtes Makro Quelldaten in das Sheet.
Je nach Verwendung meiner Excel-Mappe macht es Sinn, für jedes einzel...
20.11.2009 14:08:39
Thread-ID: 1118904
7 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
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
2
4
6
7
2
5
5
6
3
2
3
6
2
6
6
5
2
6
18
4
7
2
1
1