In der Regel k�nnen Endlosschleifen nur �ber STRG+Untbr
abgebrochen werden.
Im schlimmsten Fall muss man Excel �ber den Taskmanager
"abw�rgen".
Mit dieser kleinen Routine gelingt es mit Escape:
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Sub Endlosschleife()
Do
DoEvents
If (GetAsyncKeyState(&H1B)) <> 0 Then Exit Do
Loop Until 1 = 2
End Sub
|
