Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
392to396
392to396
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Endlosschleife unterbrechen

Forumthread: Endlosschleife unterbrechen

Endlosschleife unterbrechen
10.03.2004 11:35:26
Bernd G.
Hallo liebe Excelspezialisten,
ich habe eine Schleife in VBA geschrieben, in der laufend etwas abgearbeitet wird. Die Schleife soll erst durch einen Tastendruck beendet werden, nicht durch eine Bedingung.
Wie bekomme ich das hin oder welche Befehle kööne mir da weiterhelfen?

Gruß
Bernd
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Endlosschleife unterbrechen
10.03.2004 11:53:01
Bert
Schau dir mal EnableCancelkey an.
Bert
AW: Endlosschleife unterbrechen
10.03.2004 12:06:34
ANdreas
Hallo Bernd,
hier mal ein Beispiel, Du kannst die Taste frei festlegen. Im Beispiel ist es P:
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer


Private Function KeyPressed(ByVal Key As Long) As Boolean
KeyPressed = CBool((GetAsyncKeyState(Key) And &H8000) = &H8000)
End Function

Sub Endlos()
Dim i As Double
i = 0
Do
If i Mod 1000 = 0 Then Application.StatusBar = "P für Ende " & i
i = i + 1
Loop Until KeyPressed(80) 'p,P
Application.StatusBar = False
End Sub

Hoffe das hilft weiter,
Andreas
Anzeige
AW: Endlosschleife unterbrechen
11.03.2004 07:24:02
Bernd G.
Hallo Andreas,
vielen Dank,
dass hat mir weitergeholfen!!!
Gruß
Bernd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige