esc Endlosschleife beenden
22.01.2009 19:46:00
Michael
Benötige eine Schleife die die ganze Zeit im Hintergrund läuft. Bei ESC soll sie abgebrochen werden.
Mein Bescheidener Versuch!
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Sub Schleife()
Do
DoEvents
If (GetAsyncKeyState(&H1B)) 0 Then Exit Do
Application.OnTime Now + TimeValue("0:0:3"), "StartZeitGeber"
'StartZeitGeber
Loop Until 1 = 1
' normalerweise müsste hier " Loop Until 1 = 2" eine 2 stehen, damit es eine endlosschleife ist
End Sub
Public Sub StartZeitGeber()
Kontrolle
Application.OnTime Now + TimeValue("0:0:3"), "Schleife"
End Sub
Private Sub Kontrolle()
MsgBox Format(Now, "hh:nn:ss")
' dient zur kontrolle ob überhaut etwas passiert
Sheets("Tabelle1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
' DIE AKTUALISIERUNG VON TABELLE1 IST WICHTIG; DAS MUSS UNBEDINGT AUSGEFÜHRT WERDEN
End Sub
Es gibt sicherlich bessere Lösungen.(Ich glaub das hier ist keine)
Vielen Dank
Gruß Michael