WAVals Start
05.04.2006 13:45:52
Claus
Private Sub workbook_open()
Call WAValsStart
End Sub
und in ein Standardmodul:
Declare Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub WAValsStart()
Call sndPlaySound32("c:\Dokumente und Einstellungen\\Eigene Dateien\Excel-Dateien\nicht_gefunden.wav", 1)
End Sub