Microsoft Excel

Herbers Excel/VBA-Archiv

VBA-Code anpassen

Betrifft: VBA-Code anpassen von: Fritz_W
Geschrieben am: 12.11.2014 16:31:28

Hallo VBA-Experten,

mit nachfolgendem Makro wird das angegebene Lied (hier: Lied_1.wav)gespielt.
Die WAV-Datei muss sich demzufolge im angegebenen Ordner c:\Lieder befinden.
Ich würde nun gerne den Code dahingehend geändert haben, dass sich die WAV-Datei immer im gleichen Ordner befindet, wie die Excel-Datei,in der das Makro verwendet wird.

Für Eure Unterstützung im Voraus besten Dank.

mfg
Fritz

Hier der Code:

Public Sub Play_Sound()
    Static blnPlay As Boolean
    If Not blnPlay Then
        sndPlaySound "C:\Lieder\Lied_1.wav", SND_ASYNC Or SND_NODEFAULT
    Else
        sndPlaySound "NULL", SND_ASYNC
    End If
    blnPlay = Not blnPlay
End Sub

  

Betrifft: AW: VBA-Code anpassen von: Daniel
Geschrieben am: 12.11.2014 16:35:56

Hi

sndPlaySound ThisWorkbook.Path & "\Lied_1.wav"

Gruß Daniel


  

Betrifft: AW: VBA-Code anpassen von: Fritz_W
Geschrieben am: 12.11.2014 16:42:22

Hallo Daniel,

prima, nochmals herzlichen Dank.

Gruß
Fritz


  

Betrifft: AW: VBA-Code anpassen -noch eine Änderung von: Fritz_W
Geschrieben am: 12.11.2014 16:51:29

Hallo VBA-Experten,

ich würde gerne den Code auch bezüglich der abzuspielenden Sounddatei variabler gestalten, in dem ich den Dateinamen der zu spielenden WAV-Datei aus einem Zelleintrag entnehme, z.B. steht in diesem Fall der Name(Lied_1.wav)im Tabellenblatt "Daten" in der Zelle B2.

Für eure Unterstützung danke ich im Voraus.

Gruß
Fritz


  

Betrifft: AW: VBA-Code anpassen -noch eine Änderung von: yummi
Geschrieben am: 12.11.2014 16:54:45

Hallo Fritz,

gleiche Prinzip

Public Sub Play_Sound()
      Static blnPlay As Boolean
      If Not blnPlay Then
          sndPlaySound ThisWorkbook.Path & Sheets("Daten").Cells(2,2).value, SND_ASYNC Or  _
SND_NODEFAULT
      Else
          sndPlaySound "NULL", SND_ASYNC
      End If
      blnPlay = Not blnPlay
  End Sub

Gruß
yummi


  

Betrifft: AW: VBA-Code anpassen -noch eine Änderung von: yummi
Geschrieben am: 12.11.2014 16:56:14

sry fehlt ein /

sndPlaySound ThisWorkbook.Path & "/" & Sheets("Daten").Cells(2,2).value, SND_ASYNC Or  _
SND_NODEFAULT

Gruß
yummi



  

Betrifft: AW: VBA-Code anpassen -noch eine Änderung von: Fritz_W
Geschrieben am: 12.11.2014 17:03:04

Hallo yummi,

Klasse, auch Dir herzlichen Dank.

Gruß
Fritz


 

Beiträge aus den Excel-Beispielen zum Thema "VBA-Code anpassen"