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.