nochmal Sound
01.09.2006 15:38:47
Christian
Option Explicit
Private Sub Workbook_Open()
Dim i As Long
Call WavDateiAbspielen
'Dein code
End Sub
und in Modul das hier:
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub WavDateiAbspielen()
Call sndPlaySound("C:\WINDOWS\Media\tada.wav", 1)
'Call sndPlaySound32("C:\WINDOWS\Media\Windows XP-Anmeldesound.wav", 1)
End Sub
Kann mir nochmal jemand bitte helfen?
Anzeige