Hallo,
kann mir jemand sagen, ob man Excel dazu bringen kann Sounddateien abzuspielen. Z.B. wenn eine Berechnung ein bestimmtes Ergebnis ergibt?
Ich weiss, ist eigentlich nur Spielerei, würd mich aber trotzdem interessieren.
Danke im voraus,
Jan
das ist in der Tat möglich…
'Excel 97/2000 als Mediaplayer
' Das MUSS am Anfang eines Moduls stehen
Declare Function sndPlaySound32 Lib "winmm.dll" \_
Alias "sndPlaySoundA" (ByVal lpszSoundName \_
As String, ByVal uFlags As Long) As Long
' Aufruf der Sound-Datei
Sub PlayWave()
Call sndPlaySound32("c:\winnt\media\Notify.wav", 1)
End Sub
Dann fehlt eben nurnoch die ansteuerung zum richtigen Zeitpunkt. Und die winmm.dll ,iss matürlich gefunden und vorhanden sein - genauso wie die wave-Datei…
Hallo,
danke für die schnelle Antwort. Leider bin ich nicht so fit im Makroschreiben. Um nicht zu sagen, meine Kenntnissen gehen nicht über den Gebrauch des Makrorecorders hinaus…
Dann fehlt eben nurnoch die ansteuerung zum richtigen
Zeitpunkt.
Kannst Du mir noch verraten, wie das funktioniert ? z. B. „spiele den Sound ab, wenn das Angezeigte Ergebnis in einer beliebigen Zelle im Bereich einer Spalte (z. B. A3:A10) = 0 ist“
Und die winmm.dll ,iss matürlich gefunden und
vorhanden sein
muß ich auch den kompletten Pfad zur winmm.dll angeben oder wird die auch so gefunden, wenn sie da ist?
Gruß
Jan
Kannst Du mir noch verraten, wie das funktioniert ? z. B.
„spiele den Sound ab, wenn das Angezeigte Ergebnis in einer
beliebigen Zelle im Bereich einer Spalte (z. B. A3:A10) = 0
ist“
Hi Jan,
Zellwertänderungen durch Formeln lösen kein Ereignis aus dass man mit automatischen Makros „abfangen“ könnte. Aber du kannst diejenigen Zellen, die durch ihre manuelle Änderung den Wert in A1 o.ä verändern, "überwachen* und wenn sie geändert werden, prüfst du ob A1 0 ist.
Alt+F11, In den Codebereich von Modul1 oder Tabelle1 wechselst du durch Doppelklick auf „Modul1“ bzw „Tabelle1“. Existiert kein Modul1 , dann Einfügen—Modul.
Ungetestet, in den Codebereich von Tabelle1:
Option Explicit
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Verlust As Boolean, Zelle As Range
Select Case Target.Address(0, 0)
Case "D4", "E8", "F13"
For Each Zelle In Range("A1:A10")
If Zelle = 0 Then Verlust = True
Next Zelle
If Verlust = True Then Call PlayWave
Case Else
Exit Sub
End Select
End Sub
In den Codebereich von Modul1:
Option Explicit
'Excel 97/2000 als Mediaplayer Das MUSS am Anfang eines Moduls stehen
Declare Function sndPlaySound32 Lib "winmm.dll" \_
Alias "sndPlaySoundA" (ByVal lpszSoundName \_
As String, ByVal uFlags As Long) As Long
' Aufruf der Sound-Datei
Sub PlayWave()
Call sndPlaySound32("c:\winnt\media\Notify.wav", 1)
End Sub
muß ich auch den kompletten Pfad zur winmm.dll angeben oder
wird die auch so gefunden, wenn sie da ist?
normalerweise wid sie gefunden wenn sie im richtigen Verzeichnis system32 o.ä. steht…
Gruß
Reinhard