weiß jemand, wie man Excel dazu bringt einen Sound (oder eine Sounddatei) wiederzugeben, wenn in einer Zelle ein Wert größer 1 erscheint?
Danke schon mal für alle Antworten
Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'Aufruf erfolgt mit z.B.
'=WENN(A1<0;SoundPlay(1);"")
'oder
'=WENN(A1<0;SoundPlay(1);WENN(A1>100;SoundPlay(2);"")
Function Soundplay(mySound As Integer)
Dim dummy As Long, strsounddatei As String
If waveOutGetNumDevs() <> 0 Then
Select Case mySound
Case 1
strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Ding.wav"
dummy = sndPlaySound(strsounddatei, 0)
Case 2
strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Chord.wav"
dummy = sndPlaySound(strsounddatei, 1)
End Select
End If
End Function
Hallo andreas
versuchs mal so:
der code ist glaube ich von nepumuk..
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then If Target.Value > 1 Then Call WavDateiAbspielen
End Sub
Sub WavDateiAbspielen()
Call sndPlaySound("C:\WINDOWS\Media\tada.wav", 1)
'Call sndPlaySound32("C:\WINDOWS\Media\Windows XP-Anmeldesound.wav", 1)
End Sub
ransi