Endlosschleife unterbrechen

Forumthread: Endlosschleife unterbrechen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Endlosschleife unterbrechen

10.03.2004 12: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

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Endlosschleife unterbrechen

10.03.2004 12:53:01

Bert
AW: Endlosschleife unterbrechen

10.03.2004 13:06:34

ANdreas
AW: Endlosschleife unterbrechen

11.03.2004 08:24:02

Bernd G.

AW: Endlosschleife unterbrechen

10.03.2004 12:53:01

Bert

Schau dir mal EnableCancelkey an.
Bert

AW: Endlosschleife unterbrechen

10.03.2004 13: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

AW: Endlosschleife unterbrechen

11.03.2004 08:24:02

Bernd G.

Hallo Andreas,
vielen Dank,
dass hat mir weitergeholfen!!!
Gruß
Bernd

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!