Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Endlosschleife beenden | Herbers Excel-Forum


Betrifft: Endlosschleife beenden von: Peter
Geschrieben am: 29.01.2012 22:06:25

Ich würde gerne eine Endlosschleife durch Drücken der Taste A beenden.

Wie kann man das mit VBA realisieren?

Danek im Voraus.

Grüße

Peter

  

Betrifft: AW: Endlosschleife beenden von: Josef Ehrensberger
Geschrieben am: 29.01.2012 22:22:55


Hallo Peter,

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Private Const VK_A = &H41 'Taste A

Public Sub test()
  Do
    If GetAsyncKeyState(VK_A) = -32767 Then _
      If MsgBox("Wollen sie wirklich abbrechen?" & Space(10), _
      vbYesNo + vbQuestion, "Abbruch") = vbYes Then Exit Sub
  Loop
End Sub






« Gruß Sepp »



  

Betrifft: AW: Endlosschleife beenden von: Peter
Geschrieben am: 29.01.2012 22:49:25

Perfekt. Vielen Dank!!


Beiträge aus den Excel-Beispielen zum Thema "Endlosschleife beenden"