Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Endlosschleife beenden

Endlosschleife beenden
Peter
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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Endlosschleife beenden
29.01.2012 22:22:55
Josef

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 »

Anzeige
AW: Endlosschleife beenden
29.01.2012 22:49:25
Peter
Perfekt. Vielen Dank!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige