---

Hallo zusammen!

Ich möchte eine "Do Until"-Schlaufe verlassen indem ich die Escape taste drücke. Ich denke das müsste irgendwie über das KeyEvents-Objekt gehen. Hab aber bis jetzt nicht herausgefunden wie. Ich stelle mir sowas vor:

Private Sub xxxxxxx.KeyPress(ByVal Key As Long, ByVal ShiftKeys As ShiftStateEnum)
    If Key = 27 Then
        schlaufenvariable = False
    End If
End Sub

Gibt es da eine Möglichkeit?
Besten Dank, lg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Meines Wissens funktioniert keypress nur in Verbindung mit einer Form. Strg+Pause sollte VBA-Code immer unterbrechen.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP