Office: Bestimmten Sound abspielen

Hallo zusammen,

da ich nicht so sehr VBA bewandert bin und ich durch suchen nicht fündig geworden bin, möchte ich hier anfragen, ob mir jemand helfen kann?

Folgende Problemstellung:

In Tabelle 1 werden Werte in A1, A2 und A3 eingetragen. Die Summe aus den drei Zellen wird in A4 ausgegeben. Nun soll je nach Wert der Summe ein bestimmter Sound abgespielt werden.
Bsp.:
A1 = 5 , A2= 5 , A3= 10, A4= 20 spiele Sound 1 ab
A1 = 10, A2= 10, A3= 20, A4 = 40 spiele Sound 2 ab
A1 = 3, A2= 2, A3=12, A4= 8 spiele Sound 3 ab
....

ich habe ca. 25 verschiedene Sounds, die je nach Wert in A4 abgespielt werden sollen. Der Sound soll auch erst abgespielt werden, wenn A1 bis A3 mit Werten gefüllt sind.

Ich hoffe, dass ich mich verständlich ausdrücken konnte.
Vorab schon einmal Danke für Eure Hilfe/Unterstützung.

VG
MaLe

:)

 

Hallo,

welches Format und Endung haben die Sounddateien denn ?

 

Hi,

schau mal unter diesem Link Hajo-excel.de Sound. Dort findest du mehrere Beispiele - vielleicht kannst du ja eins für dich verwenden/anpassen.

 

Hallo MaLe,

ein schnell gefundener Code zum Abspielen von Wav-Dateien eingebaut in die notwendigen Prüfungen:

Code für ein allgemeines Modul:
Code:

Code für das Modul des Tabellenblattes, in dem die Formel steht:
Code:

Grüße
EarlFred

 

Vielen Dank für die Rückmeldungen.

Es handelt sich um .wav Dateien.

Ich werde den Code von EarlFred später ausprobieren und mich dann wieder melden.

Danke!

 

\@EarlFred: Der Code funktioniert perfekt.
DANKE!!!

Jetzt habe ich versucht den Code zu erweitern, d.h. wenn
in den Zellen B1, B2 und B3 anschließend Werte eingetragen werden, dann soll der gleiche Ablauf sein, wenn in B4 das Ergebnis steht.

Den ursprünglichen Code zu erweitern ist bestimmt recht simpel, aber ich habe es nach mehreren Versuchen nicht geschafft.

Könnt ihr mir nochmal helfen?

Danke und viele Grüße

 

Hallo Experten.

Ich würde gerne sogar noch erweitern.
Insgesamt komme ich auf ca. 15 Zeilen.
Je nach Ausgabewert in Zelle A4, B4, C4 usw. soll eine bestimmte. WAV Datei abgespielt werden, aber erst wenn die vorherigen Zellen A1:A3, B1:B3, C1:C3, usw. mit Zahlen gefüllt sind.

Danke und viele Grüße

 

Mach dir doch bitte zuerst Gedanken, wie es am Ende aussehen soll und nimm dir dann angemessen viel Zeit, deine Wünsche verständlich zu formulieren.

 

Hallo,

ich habe es mir schon fast gedacht, dass es unverständlich ist, was ich geschrieben habe.
Werde es jetzt versuchen genauer zu beschreiben.
Bitte meckern, wenn es nicht klar ist, was ich meine.

Bei dem was ich vorhabe, handelt es sich um eine Datei zum Dart spielen.
Es geht los bei C14 bis E14. Jeder einzelne Wurf wird hier reingeschrieben.
Wenn alle drei Felder belegt sind, soll bei einer bestimmten Zahl/Ergebnis aus C14:E14 (z.B. 180) in G14 eine .wav Datei abgespielt werden. Es soll aber erst der Sound abgespielt werden, wenn die drei Felder befüllt sind. Insgesamt habe ich 25 verschiedene Sounds.
Nachdem eine Runde (max. 15 Runden) gespielt ist, erfolgt die nächste Eingabe in C15 bis E15 mit Ergebnis in G15. Auch hier soll wieder je nach bestimmten Wert ein Sound abgespielt werden. Anschließend geht es weiter bei C16 bis E16 mit Ergebnis in G16, usw.
Habe auch mal ein Bild angehängt, wie es momentan aussieht. Die Zahlen in Spalte F geben die Runde an, sind also feste Zahlen, die auch in keine Rechnung verwickelt sind.

Der Code von EarlFred funkionierte auch sehr gut für C14 bis E14 und Ergbenis in G14. Habe den Code erweitert mit den Abfragen (Case). Ich dachte, dass ich dies dann auch ganz einfach für die nächsten Zeilen (C15:E15, usw.) machen kann, aber hier bin ich kläglich gescheitert.

Hoffentlich konnte ich nun deutlich machen, um welches Problem es sich handelt und hoffe ebenfalls, dass ich wieder geholfen bekommen.

Viele Grüße
MaLe

 

Hallo,

ändere den Code im Modul der Tabelle wie folgt ab:
Code:

Grüße
EarlFred

 

Hallo EarlFred,

erstmal wieder Danke für deine Hilfe.

Leider wird kein Sound abgespielt.
Ich habe den Pfad mit der jeweiligen Sounddatei angepasst.
Es kommt auch keine Fehlermeldung. Ich gebe die Werte in die Zellen (z.B. C14:E14) ein, das Ergebnis erscheint in G14, aber es bleibt still.


Muss ich in dem Code noch irgendwas anpassen?

Den kurzen Code aus deinem ersten Post habe ich in dem Modul gelassen und bei dem Tabellenblatt den neuen Code von dir.

Viele Grüße
MaLe01

 

Hallo EarlFred,

ich habs gefunden:

In der Zeile
"Select Case rngToCheck.Cells(lngRelRow, 4).Value"
habe ich aus der 4 eine 5 gemacht und schon funktioniert alles Bestens.


Herzlichen Dank nochmal für deine Hilfe.
Viele Grüße
MaLe01