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
|