abrechen mit Esc

Bild

Betrifft: abrechen mit Esc
von: Andi
Geschrieben am: 20.11.2003 18:43:59

Liebe Leute,

gibt es eine Möglichkeit, die Betätigung der Escape-Taste in einer laufenden Sub abzufragen?
Irgendwas in der Art wie
On [Esc] goto ende
oder so einfach am Anfang der Sub?

Schönen Dank schon mal & schönen Abend noch
Andi

Bild


Betrifft: AW: abrechen mit Esc
von: ray
Geschrieben am: 20.11.2003 18:46:23

sorry, hab keine Antwort. Hab mich nur eingetragen, da mich die Antwort sehr interessiert.

gruß ray


Bild


Betrifft: AW: abrechen mit Esc
von: Josef Ehrensberger
Geschrieben am: 20.11.2003 18:55:49

Hallo Andi,

Mit dieser Funktion geht's.

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


Gruß Sepp


Bild


Betrifft: Danke
von: Andi
Geschrieben am: 24.11.2003 08:35:20

Hallo Sepp,

danke für die Antwort & sorry für die späte Rückmeldung; ich hatte gerade drei Tage lang keinen Computer-Zugang (kann auch mal angenehm sein ... :-) )

Schönen Gruß
Andi


Bild

Beiträge aus den Excel-Beispielen zum Thema " Nominelle Summenformel berechnen"