Sound abspielen
06.11.2006 00:27:11
Susanne99
habe hier Code, der bei Zelle 2,1 einen Sound abspielt, sofern sich der Wert ändert. Ich möchte den Code um weitere Zellen, wo andere Sounddateien abgespielt werden, erweitern. Einfaches Einfügen weiterer
Sub (mit geänderten Textzellen und Wavepfeaden natürlich) zeigen nicht die erhoffte Wirkung. Hat jemand einen Tip, wie der Code aussehen muß?
Option Explicit
Declare
Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub abspielen()
Static vntAlterWert As Variant
If ActiveSheet.Cells(2, 1).Value > 0 Then
If ActiveSheet.Cells(2, 1).Value <> vntAlterWert Then
vntAlterWert = ActiveSheet.Cells(2, 1).Value
Call sndPlaySound32("c:\beep.wav", 0)
End If
End If
Application.OnTime Now + TimeSerial(0, 0, 1), "abspielen"
End Sub