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
Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As 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
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 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 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
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.
Öffne Excel und drücke ALT
+ F11
, um den VBA-Editor zu öffnen.
Klicke im Menü auf Einfügen
und wähle Modul
.
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
Schließe den VBA-Editor und gehe zurück zu deiner Excel-Tabelle.
Ändere den Wert in Zelle A1. Wenn der Wert größer als 1 ist, wird der Sound abgespielt.
Problem: Der Sound wird nicht abgespielt.
Problem: Der VBA-Code wird nicht ausgeführt.
Datei
> Optionen
> Sicherheitscenter
> Einstellungen für das Sicherheitscenter
> Makroeinstellungen
und aktiviere die Makros.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.
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.
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.
sndPlaySound
am besten mit diesem Format funktioniert.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.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen