Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Jingle bei verändertem Zellwert

Betrifft: Jingle bei verändertem Zellwert von: Mika
Geschrieben am: 10.09.2004 19:33:03

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!!!

  


Betrifft: AW: Jingle bei verändertem Zellwert von: GraFri
Geschrieben am: 10.09.2004 19:52:11

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
'----------------------------------------------------------


     Code eingefügt mit Syntaxhighlighter 2.5

Mit freundlichen Grüßen, GraFri


 

Beiträge aus den Excel-Beispielen zum Thema "Jingle bei verändertem Zellwert"