Tassos möchte, dass Excel eine Audiodatei wiedergibt, wenn der Wert in einer bestimmten Zelle einen Schwellenwert überschreitet. Wenn der Wert in einer Zelle beispielsweise 999 überschreitet, möchte er, dass eine bestimmte Audiodatei abgespielt wird.

In Excel gibt es keine integrierte Möglichkeit, dies zu tun (obwohl dies eine interessante Ergänzung zu den bedingten Formatierungsfunktionen von Excel wäre). Sie können jedoch eine Audiodatei abspielen, indem Sie ein Makro verwenden, um die Windows-API aufzurufen.

Sie müssen zunächst Code in das Sheet-Objekt für die Arbeitsmappe einfügen. (Klicken Sie mit der rechten Maustaste auf die Registerkarte für das Arbeitsblatt und wählen Sie im Kontextmenü die Option Code anzeigen.) Deklarieren Sie die Funktion „Wiedergabe“ mit dem folgenden Code:

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal lpszName As String, _   ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0     Const SND_ASYNC = &H1     Const SND_FILENAME = &H20000

Als nächstes können Sie ein kurzes kleines Makro erstellen, das die Audiodatei tatsächlich wiedergibt. Angenommen, die Audiodatei befindet sich im selben Verzeichnis wie die Arbeitsmappe, funktioniert der folgende Code. (Sie sollten den Code so ändern, dass er den richtigen Dateinamen und Speicherort enthält.)

Sub PlayWAV()

WAVFile = ThisWorkbook.Path & "\MyAudioFile.wav"

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

Legen Sie abschließend die Kriterien fest, nach denen die Datei abgespielt werden soll. In diesem Fall soll die Audiodatei immer dann abgespielt werden, wenn der Wert in der Zielzelle den Schwellenwert von 999 überschreitet. Im Folgenden wird dieser Zustand in Zelle C5 überprüft und, falls dies gerechtfertigt ist, die Audiodatei abgespielt:

Private Sub Worksheet_Change(ByVal Target As Range)

Threshold = 999     If Range("C5").Value > Threshold Then PlayWAV End Sub

Wenn sich der Wert in Zelle C5 ändert und 999 überschreitet, wird die Audiodatei einmal abgespielt. Wenn die Werte auf weniger als 999 geändert werden, wird nichts abgespielt. Wenn sich der Wert auf einen anderen Wert ändert, der 999 überschreitet, wird die Audiodatei erneut abgespielt.

Weitere Ideen zum Abspielen von Audiodateien finden Sie auf den folgenden Websites:

http://www.j-walk.com/ss/excel/tips/tip87.htm http://www.cpearson.com/excel/PlaySound.aspx

Beachten Sie auch, dass Sie Excel mithilfe der Datenüberprüfung dazu bringen können, einen Systemklang abzuspielen. Richten Sie einfach die Validierungskriterien ein (beschrieben in anderen Ausgaben von ExcelTips) und geben Sie dann auf der Registerkarte Fehler an, ob Excel den Benutzer stoppen, warnen oder informieren soll. Wenn in die Zelle ein Wert eingegeben wird, der nicht den Kriterien entspricht, wird ein Dialogfeld angezeigt und der Systemton ist zu hören.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (6559) gilt für Microsoft Excel 97, 2000, 2002 und 2003.