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
|
