Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

beim excelstart sound laufen lassen

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
Anzeige
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
Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige