Prozedur mit Button beenden

Hallo Leute!
Ich habe ein Formular (usrKartenMischen) mit zwei Befehlsschaltflächen (cmdStart und cmdStop) erstellt.
Mit cmdStart wird die Prozedur "MischeKarten" aufgerufen, die zur Zeit eine Endlosschleife enthält. Diese Endlosschleife möchte ich mit einem Klick auf cmdStop abbrechen. Das gesamte Formular (also auch cmdStop) lässt sich jedoch mit Beginn der Endlosschleife nicht mehr ansprechen, so dass nur noch über die Esc-Taste die Ausführung des Codes unterbrochen werden kann. Die ShowModal-Eigenschaft des Formulars steht auf "false", da bei "true" auch die Esc-Taste nicht mehr hilft, sondern nur noch der Windows Taskmanager (Strg+Alt+Entf).
------------------------------------------
Dim Mischen As Boolean


Private Sub cmdStart_Click()
Me.cmdStop.SetFocus
Mischen = True
Call MischeKarten
End Sub


Private Sub cmdStop_Click()
Mischen = False
End Sub

Sub MischeKarten()
While Mischen = True
ActiveCell.Value = Second(Now) 'Endlosschleife
Wend
End Sub
--------------------------------------
Warum lässt sich das Formular nicht mehr anklicken?
Vielen Dank im Voraus.
Jürgen
Eins noch zu meiner Excel-Version:
Die Info über "?" gibt 'Excel 2002' an. Ich hoffe, das die von mir ausgewählte Excel-Version "10.0 - Office XP" hiermit übereinstimmt.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Jürgen,
schau Dir mal die DoEvents-Funktion an. Ein Auszug aus der Hilfe:
DoEvents ist für einfache Operationen besonders hilfreich, wenn z.B. einem Benutzer die Möglichkeit gegeben werden soll, einen Prozeß abzubrechen, nachdem er begonnen wurde, beispielweise die Suche nach einer Datei. Bei länger andauernden Vorgängen sollte die Steuerung besser mit Hilfe eines Zeitgebers an den Prozessor abgegeben werden, oder die Aufgabe sollte einer ActiveX-EXE-Komponente übertragen werden. Im zweiten Fall kann die Aufgabe vollkommen unabhängig von Ihrer Anwendung durchgeführt werden, und das Betriebssystem übernimmt das Multitasking und die Zuteilung der Prozessorzeit.
Vorsicht°°°Jedesmal wenn Sie die Steuerung zeitweise innerhalb einer Ereignisprozedur an den Prozessor abgeben, sollten Sie sicherstellen, daß die Prozedur nicht von einem anderen Teil des Codes aufgerufen wird, bevor der erste Aufruf beendet ist. Die Folgen eines solchen Aufrufs sind nicht vorhersehbar. Führen Sie DoEvents auch dann nicht aus, wenn Sie nicht ausschließen können, daß andere Anwendungen in irgendeiner Weise eine Verbindung mit der Prozedur herstellen, während das Betriebssystem die Ausführung steuert.
Ein einfaches Dummybeispiel mit 2 Commandbuttons und einem Label in einem Userform.
Commandbutton1 startet den Zähler. Mit Commandbutton2 ist der Spuk dann zu Ende.
Option Explicit


Private Sub CommandButton1_Click()
Label1.Caption = 1
Do
DoEvents
Me.Label1.Caption = Me.Label1.Caption + 1
Loop
End Sub


Private Sub CommandButton2_Click()
End
End Sub

Grüße Boris

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Prozedur mit Button beenden

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread