Wave Dateien in Excel über Sound_Wenn abspielen

Mit der folgenden Funktion können Sie über eine Wenn Funktion (Sound_Wenn) verschiedene Wave Dateien abspielen.
Dazu kopieren Sie folgenden Code in ein Modul im VBA Editor, oder importieren Sie die zum Download bereitgestellte Zip-Datei "Sound_Wenn.bas".

Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Function SOUND_WENN(Ausdruck As Boolean, Dann_WAV As Variant, Optional Sonst_WAV As Variant) As Variant

If Ausdruck = True Then
SOUND_WENN = True

If Dir(Dann_WAV) > "" Then
sndPlaySound32 Dann_WAV, 1
Else
SOUND_WENN = CVErr(2001)
End If
Else
SOUND_WENN = False

If Not IsMissing(Sonst_WAV) Then
If Dir(Sonst_WAV) > "" Then
sndPlaySound32 Sonst_WAV, 1
Else
SOUND_WENN = CVErr(2001)
End If
End If
End If
End Function

Die Funktion könnte folgendermaßen aussehen.
Beispiel:
=Sound_Wenn(A1>50;"c:\winnt\media\ringin.wav";"c:\winnt\media\ding.wav")

als Zip Datei