Schleife per Tastendruck abbrechen
31.10.2003 18:21:17
pvmorris
ich möchte eine Endlosschleife per Tastendruck abbrechen (indem ich "EndThis" aufrufe):
On Error GoTo 20
Application.DisplayFullScreen = True
10 For Each i In ActiveWindow.SelectedSheets
...
Next
GoTo 10
20 Call EndThis
End Sub
Sub EndThis()
Application.DisplayFullScreen = False
End
End Sub
Wichtig: Der Code ist Teil eines Moduls und hängt nicht hinter einer User-Form, also dürfte KeyUp nicht funktionieren.
Anzeige