Anzeige
Archiv - Navigation
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
276to280
276to280
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sounddateien abspielen

Sounddateien abspielen
05.07.2003 18:24:37
Ralf
Ich habe folgendes Problem
In meiner Tabelle sollen verschienene WAV – Dateien abgespielt werden.
Die Zellen P2, Q2, R2 u.s.w. sehen so aus.
=ZÄHLENWENN($G$2:$G$60;0)
=ZÄHLENWENN($G$2:$G$60;1)
=ZÄHLENWENN($G$2:$G$60;2)
=ZÄHLENWENN($G$2:$G$60;3) u.s.w.
Die Zellen P3, Q3, R3 u.s.w. sehen so aus.
=WENN(P2>0;sounddateispielen0();"")
=WENN(Q2>0;sounddateispielen1();"")
=WENN(R2>0;sounddateispielen2();"")
=WENN(R2>0;sounddateispielen3();"") u.s.w.
Bislang habe ich für jede Sounddatei ein eigenes Modul erzeugt.
------------------------------------------------------------------------------------------
Modul1
Declare

Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare 

Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Function SoundDateiSpielen0()
Dim strSoundDatei As String
Dim Dummy As Long
If waveOutGetNumDevs() <> 0 Then
strSoundDatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Der Geburtstag ist Heute.wav"
Dummy = sndPlaySound(strSoundDatei, 0)
End If
End Function

------------------------------------------------------------------------------------------
Modul2
Declare

Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare 

Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Function SoundDateiSpielen1()
Dim strSoundDatei As String
Dim Dummy As Long
If waveOutGetNumDevs() <> 0 Then
strSoundDatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Der Geburtstag ist 01 Morgen.wav"
Dummy = sndPlaySound(strSoundDatei, 1)
End If
End Function

----------------------------------------------------------------------------------- u.s.w.
Gibt es eine Möglichkeit das ganze in einem Modul zusammenzufassen?
Kann dem unwissenden Ralf von Euch geholfen werden? Dank im voraus.
Ich Danke dir für die schnelle Hilfe. Gruß Ralf.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sounddateien abspielen
05.07.2003 21:36:40
Ramses
Hallo Ralf,
pack doch alles in ein Makro rein:

Option Explicit
Declare Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As StringByVal uFlags As LongAs Long
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\Der Geburtstag ist Heute.wav"
            dummy = sndPlaySound(strsounddatei, 0)
        Case 2
            strsounddatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Der Geburtstag ist 01 Morgen.wav"
            dummy = sndPlaySound(strsounddatei, 1)
    End Select
End If
End Function 
     Code eingefügt mit Syntaxhighlighter 1.16


Aufrufen kannst du mit
=WENN(P2>0;soundplay(1);"")
Gruss Rainer

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige