Problem mit macro wave bei ereignis abspielen
18.02.2004 11:40:55
johoba
ich versuche mich derzeit daran ein kleines macro zu schreiben in dem mehrere spalten überwacht werden und sobald in einer der spalten eine 1 steht solle ein wav als hinweis abgespielt werden.
hierbei habe ich zwei problem
1. wie aktiviere ich das macro und es läuft solange automatisch bis ich esc drücke
und
2.
wie muß die Bedingung lauten die eine wav abspielt, wenn 1 erreicht ist.
zu zwei versuche ich gerade aus den Beispieln hier etwas zu basteln, aber das bisherige ergebnis läuft nicht
Ergebnis bisher
Private Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Sub Wavspielen()
Application.EnableCancelKey = xlErrorHandler
On Error GoTo ErrorHaendler
If ActiveSheet.Cells(1, 1) = 1 Then
Call sndPlaySound32("c:\windows\media\tada.wav, 1")
Else: ActiveSheet.Cells(1, 2) = "Kein Sound gespielt"
End If
ErrorHaendler:
End Sub
Anzeige