Hallo zusammen,

im Folgenden ist ein Excel-Makro, welches bei Überschreiten eines Wertes (1.1) in der Zelle B3 eine bestimmte Wav-Datei abspielt.

Nun besteht die Zelle B3 aus einer Division zweier Werte aus zwei anderen Zellen. Die Werte dieser Zellen wiederum ändern sich automatisch alle 30 Sekunden. Nun suche ich ein Skript, welches das Makro mit der Wav-Datei nach der automatischen Änderung der Zelle B3 automatisch ausführt.

Tabelle1:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count > 1 Then Exit Sub
    
        If Target.Address(0, 0) = "B3" And Target.Value <> "" And Target.Value >= 1.1 Then
        
            PlayWavFile "C:\X\alarm01.wav", True
        End If
End Sub

Modul 1:

Option Explicit
Public PlayedOnce As Boolean
Public Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long


Sub PlayWavFile(WavFileName As String, Wait As Boolean)
    If Dir(WavFileName) = "" Then Exit Sub
    If Wait Then
        sndPlaySound WavFileName, 0
    Else
        sndPlaySound WavFileName, 1
    End If
End Sub

Sub TestPlayWavFile()
End Sub

Grüsse,

Fabian