Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Excel Userform Sound abspielen

Excel Userform Sound abspielen
03.06.2023 15:51:51
Bettina Ehrhardt

Hallo Zusammen,
ich hoffe Ihr könnt mir helfen.

Ich möchte einen Sound abspielen und der Sound soll solange wiederholt werden bis ein Userform geschlossen wird.

Der Hintergrund ist, dass ein Makro immer bei einem Fehler aufgerufen wird. Da ich während dessen nicht im Raum bin soll es richtig Krach :) machen und das so lange bis ich es quittiere.

Habt ihr eine Idee?

Viele Dank und Grüße
Bettina

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Userform Sound abspielen
03.06.2023 15:59:53
onur
Userform startet (und beendet) einen Timer, der eine Sounddatei abspielt.


AW: Excel Userform Sound abspielen
03.06.2023 16:05:35
Bettina
"Userform startet (und beendet) einen Timer, der eine Sounddatei abspielt."

Danke, aber geht es etwas genauer? vielleicht mit einem Beispielcode?

Gruß Bettina


AW: Excel Userform Sound abspielen
03.06.2023 16:08:48
onur
Du bist doch "VBA-gut", also sollte der Rest nicht das geringste Problem darstellen. :)
Auisserdem hast du nach IDEEN gefragt, nicht nach fertigem Code.


Anzeige
AW: Excel Userform Sound abspielen
03.06.2023 16:18:07
Bettina
Sorry, Ich denke schon, dass ich ganz gut bin, aber bei weitem kein Profi.


AW: Excel Userform Sound abspielen
03.06.2023 16:22:13
onur
Multitasking halt .... :)


Anzeige
AW: Excel Userform Sound abspielen
03.06.2023 16:21:30
onur
Nimm den ersten Code von Volti.
Wenn du dann eine Sounddatei nimmst, die z.B. 20 min läuft, brauchst du auch keinen Timer, um den Sound dauernd neu zu starten.


AW: Excel Userform Sound abspielen
03.06.2023 16:50:31
Bettina

Private Sub UserForm_Initialize()
   SetPlaySoundWiederholung
End Sub

Private Sub UserForm_Terminate()
    Application.OnTime nächsteWiederholungIn, "DoPlaySoundWiederholung", Schedule:=False
End Sub

Private Sub SetPlaySoundWiederholung()
    nächsteWiederholungIn = Now + TimeValue("00:00:01")
    Application.OnTime nächsteWiederholungIn, "DoPlaySoundWiederholung"
End Sub

Public Sub DoPlaySoundWiederholung()
    UserFormWarnung.btnEnde.SetFocus
    Application.Speech.Speak UserFormWarnung.Caption
    Call sndPlaySound32(xSound, 0)

    SetPlaySoundWiederholung
End Sub

Funktioniert nicht weil "DoPlaySoundWiederholung" nicht gefunden wird.


Anzeige
AW: Excel Userform Sound abspielen
03.06.2023 17:02:49
onur
Du musst natürlich den Pfad zu DEINER Sounddatei eingeben.


AW: Excel Userform Sound abspielen
03.06.2023 17:27:59
Bettina
Das funktioniert jetzt auch auch.

In beiden Varianten läuft der Sound leider nicht im Hintergrund, aber damit kann ich Leben.

Vielen Dank an alle und nochmal Entschuldigung für den Doppelthread.


Anzeige
AW: Excel Userform Sound abspielen
03.06.2023 17:29:47
onur
Was genau meinst du mit "im Hintergrund" ?


AW: Excel Userform Sound abspielen
03.06.2023 17:36:56
Bettina
Ich muss immer abwarten bis die Sounddatei zu Ende ist, bevor ich die Schaltfläche im Userform reagiert. Idealerweis hätte ich auch eine laufende Sounddatei abbrechen können. Ich hab das jetzt über einen kürzeren Sound gelöst.


AW: Excel Userform Sound abspielen
03.06.2023 17:47:29
Volti
Hallo zusammen,

Sounds und Musikdateien lassen sich mit der API-Funktion mcisend abspielen.
Da kann man den Einspringpunkt, individuelles Ende (Start, Stopp), Lautstärke und vieles mehr machen.
Ist aber etwas aufwändiger.
Leider habe ich jetzt keine Zeit für ein umfangreiches Beispiel.
Ggf. später mal oder mal selbst googlen.
Das wäre dann auch im Hintergrund...

Gruß KH


Anzeige
AW: Excel Userform Sound abspielen
03.06.2023 18:02:21
Volti
Sorry, mcisendString war gemeint

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige