Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sound in Excel einfügen, aber WIE?

Sound in Excel einfügen, aber WIE?
19.12.2004 10:45:02
andreas
Hallo,
weiß jemand, wie man Excel dazu bringt einen Sound (oder eine Sounddatei) wiederzugeben, wenn in einer Zelle ein Wert größer 1 erscheint?
Danke schon mal für alle Antworten
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sound in Excel einfügen, aber WIE?
=Peter=
Hallo Andreas,
schau mal über Services in die Rechereche und gib dort den Begriff 'Sound' ein. Bei den 117 Treffern müsste eigentlich was zu finden sein.
Gruss
Peter
AW: Sound in Excel einfügen, aber WIE?
Ramses
Hallo


Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As StringByVal uFlags As LongAs Long
'Aufruf erfolgt mit z.B. 
'=WENN(A1<0;SoundPlay(1);"")
'oder
'=WENN(A1<0;SoundPlay(1);WENN(A1>100;SoundPlay(2);"")
Function Soundplay(mySound As Integer)
Dim dummy As Long, strsounddatei As String
If waveOutGetNumDevs() <> 0 Then
    Select Case mySound
        Case 1
            strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Ding.wav"
            dummy = sndPlaySound(strsounddatei, 0)
        Case 2
            strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Chord.wav"
            dummy = sndPlaySound(strsounddatei, 1)
    End Select
End If
End Function
Anzeige
AW: Sound in Excel einfügen, aber WIE?
ransi


      
Hallo andreas
versuchs mal so:
der code ist glaube ich von nepumuk..
Option 
Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As StringByVal uFlags As LongAs Long
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then If Target.Value > 1 Then Call WavDateiAbspielen
End Sub
Sub WavDateiAbspielen()
    
Call sndPlaySound("C:\WINDOWS\Media\tada.wav", 1)
   
'Call sndPlaySound32("C:\WINDOWS\Media\Windows XP-Anmeldesound.wav", 1)
End Sub
ransi 



Anzeige
danke für Antworten, aber Frage noch offen
andreas
HI, danke für die schnellen Antworten, aber gibt es auch etwas ohne Makro?
Ich dachte mehr an eine Wenn Funktion, oder etwas in der Richtung.
Wie bei einer bedingten Formatierung.
Weiß da jemand eine Möglichkeit?
Grüße
Nein. Keine Möglichkeit o.T.
Ramses
...
AW: danke für Antworten, aber Frage noch offen
AndréL.
Hallo Andreas,
hier mit Wenn Funktion ( trotzdem Makro )
Gruß
AndréL.
https://www.herber.de/bbs/user/15021.xls
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Sound in Excel einfügen


Schritt-für-Schritt-Anleitung

Um einen Sound in Excel einzufügen und abzuspielen, wenn ein bestimmter Wert in einer Zelle erreicht wird, kannst du den folgenden VBA-Code verwenden. Diese Anleitung gilt für Excel-Versionen, die VBA unterstützen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke im Menü auf Einfügen und wähle Modul.

  3. Füge den folgenden Code in das Modul ein:

    Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    
    Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Address = "$A$1" Then
            If Target.Value > 1 Then
                Call PlaySound
            End If
        End If
    End Sub
    
    Sub PlaySound()
        Call sndPlaySound("C:\WINDOWS\Media\tada.wav", 1)
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu deiner Excel-Tabelle.

  5. Ändere den Wert in Zelle A1. Wenn der Wert größer als 1 ist, wird der Sound abgespielt.


Häufige Fehler und Lösungen

Problem: Der Sound wird nicht abgespielt.

  • Lösung: Stelle sicher, dass der Pfad zur Sounddatei korrekt ist und die Datei existiert. Überprüfe auch, ob die Lautstärke deines Computers funktioniert.

Problem: Der VBA-Code wird nicht ausgeführt.

  • Lösung: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Makroeinstellungen und aktiviere die Makros.

Alternative Methoden

Falls du keine Makros verwenden möchtest, gibt es derzeit keine direkte Möglichkeit, Sounds in Excel ohne VBA abzuspielen. Eine mögliche Alternative könnte die Verwendung von Excel Audio-Funktionen in Kombination mit bedingter Formatierung sein, um visuelle Hinweise zu geben, jedoch wird kein Ton erzeugt.


Praktische Beispiele

  1. Einfache Soundausgabe: Verwende den oben bereitgestellten Code, um Sounds für verschiedene Werte abzuspielen. Du kannst mehrere Sounds hinzufügen, indem du weitere Case-Anweisungen in die PlaySound-Subroutine einfügst.

  2. Dynamische Soundausgabe: Stelle dir vor, dass Zelle A1 mit einem Dropdown-Menü verknüpft ist. Je nach Auswahl kannst du unterschiedliche Sounds abspielen, indem du den Wert in Target.Value überprüfst.


Tipps für Profis

  • Sounddateien: Stelle sicher, dass die Sounddateien im WAV-Format vorliegen, da sndPlaySound am besten mit diesem Format funktioniert.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung im VBA-Code, um sicherzustellen, dass der Sound abgespielt wird, selbst wenn die Datei nicht gefunden wird.
  • Optimierung: Du kannst den Code so anpassen, dass er mehrere Zellen überwacht, um verschiedene Sounds für unterschiedliche Werte abzuspielen.

FAQ: Häufige Fragen

1. Muss ich VBA verwenden, um Sounds in Excel abzuspielen? Ja, der Einsatz von VBA ist notwendig, um Sounddateien in Excel abzuspielen. Es gibt keine integrierte Funktion in Excel, die dies ohne Makros ermöglicht.

2. Welche Soundformate werden unterstützt? Die Funktion sndPlaySound unterstützt in der Regel WAV-Dateien. Achte darauf, dass deine Sounddateien im richtigen Format vorliegen.

3. Kann ich auch Hintergrundmusik in Excel einfügen? Technisch ist es möglich, Hintergrundmusik mit VBA abzuspielen, jedoch könnte dies die Leistung von Excel beeinträchtigen und wird nicht empfohlen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige