Hallo,
hab ein kleines Problemchen mit dem Abspielen einer Wav-Datei.
Mit
Option Explicit
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As _
String, ByVal uFlags As Long) As Long
deklariere ich im Kopf des Makros zunächst die Function zum Abspielen und kann
nun durch Einfügen von
Call sndPlaySound32("G:\Sound\James_Bond_Theme.wav", 0)
die betreffende Wav-Datei abspielen.
Kernstück des Makros ist die Schleife
Do
Range("007!U43").Calculate
Loop Until Range("007!U43") = "OKAY"
Füge ich die Zeile Call.... vor Do ein, wird erst die komplette Wav-Datei abgespielt, bevor die Schleife abgearbeitet wird. Füge ich sie nach Loop....
ein, arbeitet das Makro die Schleife ab und spielt anschließend die komplette
Wav-Datei ab.
Ich suche eine Möglichkeit, daß die Wav-Datei gleichzeitig mit dem Starten
der Loop-Schleife abgespielt/gestartet wird und endet, sobald Range("007!U43") =
"OKAY" ist.
Bisherige Testläufe haben ergeben, daß das Abarbeiten der Schleife schwankt
zwischen ein paar Sekunden und etwa 2 Minuten. Die Wav-Datei hat eine Länge von
2:36 . Wenn nun die Schleife länger braucht als das Musikstück lang ist, müßte
das Musikstück nach Ablauf wieder von vorn anfangen.
Hab im Netz leider nichts in der Art gefunden.
Gruß
Howard