Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Jingle bei verändertem Zellwert

Jingle bei verändertem Zellwert
10.09.2004 19:33:03
Mika
Hallo Forumgemeinde!
Ich habe folgendes Problem:
Ich will in Excel einen Jingle automatisch abspielen lassen, sobald sich ein bestimmter Zellwert verändert.
Wie kann ich das Problem lösen?
Danke schonmal!!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Jingle bei verändertem Zellwert
10.09.2004 19:52:11
GraFri
Hallo
Habe dir nur das Prinzip aufgezeigt. Code etwas ändern, dann müßte es gehen.


'----------------------------------------------------------
'in die Tabellendekleration
'Zelle A1 muß Wert 34 haben
Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim tb  As Worksheet
Set tb = Worksheets("Tabelle1")
On Error GoTo Fehler
Application.EnableEvents = False
If Target.Address = "$A$1" Then
    If IsNumeric(tb.[A1].Value) Then   'Abfrage, ob Zahl
        If tb.[A1] = 34 Then Call Modul1.Musik
    End If
End If
Application.EnableEvents = True
Exit Sub
Fehler:
Application.EnableEvents = True
End Sub
'----------------------------------------------------------
'----------------------------------------------------------
'in ein Modul
Declare Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName _
    As StringByVal uFlags As LongAs Long
Sub Musik()
    
    MsgBox "richtiger Wert"
    Call sndPlaySound32("c:\WINNT\media\ding.wav", 1)
End Sub
'----------------------------------------------------------
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige