Hallo Adde,
ich habe mir mal deine Datei aus der anderen Anfrage bezüglich der Einbindung von Sounddateien angesehen. Du hast die Sounddateien mit Hyperlinks in die einzelnen Zellen mit dem Wurfergebnissen verlinkt. Da du aber auch mit einem Doppelklick auf die Wurfergebnisse diese übernehmen willst, kommt es hier zu Komplikationen.
Ich würde auch die Sounddateien über VBA abspielen lassen. Ein entsprechendes Makro, das ich hier gefunden habe, habe ich für deine Zwecke angepasst.
Ergänze das Makro mit dem BeforeDoubleKlick-Ereignis im jeweiligen Tabellenblatt wie folgt:
Füge vor dem End Sub die folgende Zeile ein:
If lngWurf > 0 Then Start_Ansage (lngWurf)
Füge den folgenden Code in ein allgemeines Modul ein:
Option Explicit
'Funktion "SendMessage" deklarieren
Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal Hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, _
ByVal lParam As Long) As Long
'Funktion "FindWindow" deklarieren
Private Declare PtrSafe Function FindWindow Lib "user32" Alias _
"FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Sub Start_Ansage(lngWurf As Long)
'Variablen deklarieren
Dim MediaPlayer As Variant
Dim strSounddatei As String
Dim strPfad As String
'Pfad, in der die Sounddateien liegen - Anpassen
strPfad = "C:\Musik\"
'Name der abzuspielenden Datei Ermittenln
strSounddatei = lngWurf & ".mp3"
'Mit einem Shell-Befehl den Mediaplayer aufrufen im Hintergrund und die
'Sounddatei abspielen
MediaPlayer = Shell("C:\Program Files (x86)\Windows Media Player\wmplayer.exe """ _
& strPfad & strSounddatei & """", vbHide)
End Sub
Sub Stop_Ansage()
'Funktionen "SendMessage" und "FindWindow" starten
SendMessage FindWindow(vbNullString, "Windows Media Player"), &H10, 0, 0
End Sub
Den Pfad, in dem deine Sounddateien und die Endungen musst du ggf. anpassen. Wenn ich mir deine Beispieldatei ansehe, gehe ich davon aus, dass die Sounddateien entsprechend den Wurfergebnissen heißen, also z.B. 1.mp3.
Probiere das Makro am besten mal in einem Blatt aus, in dem du keine Hyperlinks bei den Wurfergebnissen hinterlegt hast. Wählst du mit einem Doppelklick ein Wurfergebnis aus, wird die entsprechende Sounddatei abgespielt.
Gruß
M.O.