Thema Datum  Von Nutzer Rating
Antwort
Rot Automatische Ausführung eines Makros
08.04.2013 13:14:11 Fabian
NotSolved
08.04.2013 13:56:56 Holger
NotSolved
08.04.2013 14:26:03 Gast87097
NotSolved
09.04.2013 12:53:37 Holger
Solved

Ansicht des Beitrags:
Von:
Fabian
Datum:
08.04.2013 13:14:11
Views:
1258
Rating: Antwort:
  Ja
Thema:
Automatische Ausführung eines Makros

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Automatische Ausführung eines Makros
08.04.2013 13:14:11 Fabian
NotSolved
08.04.2013 13:56:56 Holger
NotSolved
08.04.2013 14:26:03 Gast87097
NotSolved
09.04.2013 12:53:37 Holger
Solved