Function sndPlaySound32 Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName _
As String, ByVal uFlags As Long) As Long
Sub WAValsStart()
Call sndPlaySound32("c:\Windows\media\Windows XP-Herunterfahren.wav", 1)
End Sub
In die Deklaration des Arbeitsblattes bzw. der Form:
Sub CommandButton_Click()
Call Modul1.WAValsStart
End Sub
Von GraFri
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.
Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
Hallo Hajo,
sicher stelle ich mich mal wieder zu blöd an und brauche den AHA-Kick.
Ich habe eine neue Datei geöffnet, einen CommandButton auf Tabellenblatt1 angelegt, den Editor mit ALT F11 geöffnet, ein neues Modul eingelegt und dann den ersten TeilCode von Dir eingegeben
Danach habe ich den Button auf Tabelle1 mit folgendem Code belegt:
Sub CommandButton1_Click()
Call Modul1.WAValsStart
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen