Sound Abspielen

Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare 

Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Function SoundDateiSpielen1()
Dim strSoundDatei As String
Dim Dummy As Long
If waveOutGetNumDevs() <> 0 Then
strSoundDatei = "c:\windows\media\Microsoft Office 2000\Der Geburtstag ist 00 Heute.wav"
Dummy = sndPlaySound(strSoundDatei, 1)
End If
End Function


Unsinnigerweise wird der Sound bei jeder neuen Aktion abgespielt. Und zwar weil ich in einer Zelle zur

Übehrwachung    =ZÄHLENWENN(G2:G54;0)  eingetragen habe und zu Aktivierung ein zweite Zelle darunter

eingetragen habe  =WENN(P2>0;sounddateispielen1();"")

Das nerft.    Einmal reicht.

Hätte da eventuell jemand eine Idee.

Flippe gleich aus.    Help!!!

Gruß Ralf