Herbers Excel/VBA-Archiv
| Informationen und Beispiele zum Thema MsgBox | |
|---|---|
 Screenshot zu MsgBox |
MsgBox-Seite mit Beispielarbeitsmappe aufrufen |
Jingle bei verändertem Zellwert
- Jingle bei verändertem Zellwert von Mika vom 10.09.2004 19:33:03
- AW: Jingle bei verändertem Zellwert - von GraFri am 10.09.2004 19:52:11
 |
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 String, ByVal uFlags As Long) As 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
| |