Office: Klänge einfügen

Hallo zusammen,

ich würde gerne in einer Tabelle bei Erreichen einer bestimmten Summe einen Klang ertönen lassen. ;-)

Wie kann ich das ??
- programmieren ?
- mit einer Funktion erreichen?
- oder sonst wie ????

Herzlichen Dank für Eure Mithilfe. ;-)

 

Hallo!

Per VBA ist das durchaus möglich.
Wenn du diesen Code ins Modul des entsprechenden Tabellenblatts kopierst, dann ertönt nach jeder Neuberechnung des Blatts der Windows-Sound "tadaa", wenn der Wert in A1 größer als 3 ist:

Code:

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

Private Sub Worksheet_Calculate()
If Range("A1") > 3 Then Call sndPlaySound("C:/WINDOWS/Media/tada.wav", 1)
End Sub

(Gefunden und leicht abgewandelt habe ich das hier.)

 

Danke Schatzi,

nur - irgendwie steige ich da nicht durch. Man möge es mit verzeihen: ich bin Hobbybastler, der sich in Excel ab und an eine Tabelle mit entsprechenden Formeln bastelt (kreditberechnung war bis jetzt die größte Aktion und stimmt mit der Bank überein.).

Was ist VBA ?

Ich habe nach Eingabe der Zahlen und durch die hinterlegten Formeln erfolgende sofortige Berechnung ein Ergebnis. Sollte dieses Ergebnis einen bestimmten Wert übersteigen, soll ein Klang ertönen.

Mit Deiner Lösung muß ich ja nochmals eine Berechnung des gesamten Blattes durchführen lassen -oder?

Schau Dir mal meine Tabelle an. Ich habe ein paar Bemerkungen eingefügt.

 

Hallo!


Visual Basic for Applications (VBA) ist eine zu den Microsoft-Office-Programmen gehörende Skriptsprache.

Ich habe dir deine Mappe soweit mal angepasst.

Der Ton läuft ab sobald in B8:E8 der Wert größer 3 ist.
Gruß