Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Public
Function MakroSound() As String
Call sndPlaySound32(ThisWorkbook.Path + "\Test.wav", 1)
MakroSound = ""
End Function
In Zelle B1 dann diese Formel:
=WENN(A1<8;MakroSound();"")
Hoffe das hilft weiter,
Andreas
Um eine WAV-Datei in Excel abzuspielen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Public Function MakroSound() As String
Call sndPlaySound32(ThisWorkbook.Path + "\Test.wav", 1)
MakroSound = ""
End FunctionPasse den Pfad zur WAV-Datei an, indem du "\Test.wav" durch den tatsächlichen Pfad deiner WAV-Datei ersetzt.
Schließe den VBA-Editor und gehe zurück zu deinem Arbeitsblatt.
In Zelle B1 kannst du die folgende Formel eingeben:
=WENN(A1<8; MakroSound(); "")Diese Formel überprüft den Wert in Zelle A1. Wenn der Wert kleiner als 8 ist, wird die WAV-Datei abgespielt.
Fehler: WAV-Datei wird nicht abgespielt
Fehler: "Zugriff verweigert"
Wenn du keine VBA verwenden möchtest, gibt es auch andere Möglichkeiten:
1. Kann ich auch andere Audioformate abspielen?
Leider unterstützt die sndPlaySoundA-Funktion nur WAV-Dateien. Du kannst jedoch andere Formate mit externen Programmen abspielen.
2. Funktioniert das in jeder Excel-Version?
Ja, der VBA-Code sollte in Excel 2010 und neueren Versionen funktionieren. Stelle sicher, dass Makros aktiviert sind.