HERBERS Excel-Forum - das Archiv

Thema: Bestimmter Text dann Ton oder Sound abspielen

Bestimmter Text dann Ton oder Sound abspielen
Siegfried Pütz
Hallo an alle hier im Forum,
habe eine Frage: in den Zellen E27, L27, S27 und Z27 habe ich Formeln die entweder "Darf" oder "Darf nicht" beinhalten.
Die Zellen "E27 & S27" sowie "L27 & Z27" beziehen sich auf Paare. Wenn die Summe z.B. in "E27" größer als das Ergebnis von "L27 & Z27" - erscheint bei "S27" "Darf nicht"
Jetzt möchte ich durch eine Sounddatei darauf aufmerksam machen, dass, wenn "Darf nicht" angezeigt wird, eine wav Datei abgespielt wird.
Hat jemand eine Lösung?
Zur Erklärung: wir Darten mit 4 Personen. Ab und zu spielen wir auch ein Doppel. Wenn Spieler "A" mehr punkte hat als die Spieler "B" & "D" darf Spieler "C" nicht auswerfen.
Freue mich auf Eure Antworten :-)
Grüße,
SiggiP
AW: Bestimmter Text dann Ton oder Sound abspielen
volti
Hallo Siggi,

eine Möglichkeit WAV-Dateien abzuspielen...



Private Declare PtrSafe Function PlaySoundA Lib "winmm.dll" ( _
ByVal lpszName As String, ByVal hModule As LongPtr, _
ByVal dwFlags As Long) As Long
Const SND_FILENAME = &H20000

Sub PlayMySound()
PlaySoundA "D:\IRD\DrumRoll.wav", 0, SND_FILENAME
End Sub


Gruß
Karl-Heinz
AW: Bestimmter Text dann Ton oder Sound abspielen
Siegfried Pütz
Hallo volti = Karl Heinz,
durch die Hilfe hier im Forum habe ich per VBA schon diverse Sounddateien eingegliedert. Meine VBA Kenntnisse sind weniger als bescheiden.
Habe hier mal eine Beispieldatei, falls Interesse???

https://www.herber.de/bbs/user/176383.xlsm

Gruß,
SiggiP
Das kannst du...
Case
Moin Siggi, :-)

... z. B. so machen: ;-)
https://www.herber.de/bbs/user/176382.xlsb

Wenn du eine WAV-Datei abspielen willst, dann hast du ja ein Beispiel. ;-)

Servus
Case
AW: Das kannst du...
Siegfried Pütz
Hallo Case,
in deiner Beispieldatei funktioniert das.
Ich habe dein Modul eingefügt, das funktioniert bei mir nicht.
Hier eine Beispieldatei, ohne dein Modul!
Habe daran getüftelt, geht vielleicht alles etwas einfacher ??? Aber bin damit zufrieden, da es bisher funktioniert :-)

https://www.herber.de/bbs/user/176383.xlsm

Gruß,
Siggi


Hatte die "Geschichte" schon...
Case
Moin Siggi, :-)

... wieder vergessen. Dann so: ;-)
https://www.herber.de/bbs/user/176385.xlsb

Srvus
Case
AW: Hatte die "Geschichte" schon...
Siegfried Pütz
Hallo Case,
erstmal Danke.
Wie gedacht, funktioniert Deine Datei. Nur noch eine Frage: wenn 2 oder 3 mal "darf nicht" in den 27er Zellen erscheint dann kommt kein Spruch.
Kann das so geändert werden das auch bei 2 oder 3 gleichen Eintragungen der Spruch kommt?
Im Spielmodus kann das vorkommen.
Gruß,
SiggiP
Du müsstest...
Case
Moin Siggi, :-)

... mir mal erklären, wie ich das schnell nachstellen kann, um es zu testen. Ich will da nicht zuviel rumprobieren. ;-)

Servus
Case