beim excelstart sound laufen lassen

Forumthread: beim excelstart sound laufen lassen

23.05.2006 12:30:10

timo

hallo,
besteht die möglichkeit, wenn ich eine exceldatei öffne einen sound abspielen zulassen.
z.b.
der wm spielplan in excel, wenn ich diesen öffne soll eine sound datei abgespielt werden(tor tor tor deutschland ist weltmeister)
oder
wenn man in der spalte wo der weltmeister ermittelt wird eine weitere formel hinterlegt, wenn der sieger der paarung deutschland ist kommt die national hymne)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: beim excelstart sound laufen lassen

23.05.2006 14:07:34

Dan
AW: beim excelstart sound laufen lassen

27.05.2006 13:01:11

schauan

AW: beim excelstart sound laufen lassen

23.05.2006 14:07:34

Dan

Hallo,
der wm spielplan in excel, wenn ich diesen öffne soll eine sound datei abgespielt werden(tor tor tor deutschland ist weltmeister):
(der Code soll in den ThisWorkbook-Module)
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private m_sound_file As String


Private Sub Workbook_Open()
' den Pfad zu dem Soud-File setzen (bei Dir File mit: 'tor tor tor deutschland ist weltmeister' :-))
m_sound_file = "D:\TEMP\Downloads\BLASTER4.WAV" ' hier den Pfad aendern
' den Soud-File "asynchronously" ueberspielen
PlaySound m_sound_file, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

Die zweite Frage habe ich nicht verstanden :-). Gruss Dan, cz

AW: beim excelstart sound laufen lassen

27.05.2006 13:01:11

schauan

Hallo wer auch immer,
im Prinzip wie die erste Antwort. nur kommt ein Makro
Pri va te Sub Worksheet_Change....
in das Codemodul des betreffenden Tabellenblattes
Option Explicit
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private m_sound_file As String


Private Sub Worksheet_Change(ByVal Target As Range)
' Sound nur wenn Änderung in Spalte 4 (D)
If Target.Column <> 4 Then Exit Sub
' den Pfad zu dem Soud-File setzen (bei Dir File mit: 'tor tor tor deutschland ist weltmeister' :-))
m_sound_file = "D:\TEMP\Downloads\Hurra.WAV" ' hier den Pfad aendern
' den Soud-File "asynchronously" ueberspielen
PlaySound m_sound_file, ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub

Beliebteste Forumthreads (12 Monate)

beim excelstart sound laufen lassen

Forumthread: beim excelstart sound laufen lassen

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread