Hallo Gemeinde,

der folgende Code funktioniert nur in Office 2016 32 bit.
Kann mir jemand den Code in 64 bit umschreiben?
Habe wenig Ahnung von VBA. Ich bitte um eine "Komplettlösung",
so das ich nur abschreiben muss.
Für Deine (Eure) Hilfe bedanke ich mich bereits im Vorraus

BG
Micha

Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" ( _
ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Function Human() '#Einnahmebetrag eintragen#

Dim sDatei As String
sDatei = ThisWorkbook.Path & "\Wav-Sound" & "\Human.wav"
If Dir(sDatei) = "" Then
MsgBox "Datei """ & sDatei & """ nicht gefunden" & vbCrLf & "" & vbCrLf & "Bitte den Wav-Sound ins Verzeichnis kopieren", vbExclamation, " TTSV Anklam e.V."
Else
sndPlaySound sDatei, 1

End Function

Function Crazy() '#Ausgabebetrag buchen#

Dim sDatei As String
sDatei = ThisWorkbook.Path & "\Wav-Sound" & "\Crazy.wav"
If Dir(sDatei) = "" Then
MsgBox "Datei """ & sDatei & """ nicht gefunden" & vbCrLf & "" & vbCrLf & "Bitte den Wav-Sound ins Verzeichnis kopieren", vbExclamation, " TTSV Anklam e.V."
Else
sndPlaySound sDatei, 1
End If


End Function