AW: mp3 abspielen
22.01.2009 19:39:00
Michael
Hallo Herbert!
Ich bastel noch mit meinen geringen Kenntnissen!
Vielleicht kannst Du mir helfen. Ich kämpfe mich scheibchenweise voran.
Ich benötige eine Schleife die nur verlassen wird, wenn ich esc drücke. Mein 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 = 2
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
' das muss ausgeführt werden
End Sub
Bescheiden ich weiss.
Danke Gruß Michael