Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1248to1252
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
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

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!!

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige