Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1364to1368
1364to1368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wav-Datei in xls integriefen ?

Forumthread: Wav-Datei in xls integriefen ?

Wav-Datei in xls integriefen ?
06.06.2014 15:40:29
Werner
Hallo Excel-Freunde,
ich habe eine XLS, die bei Erreichen bestimmer Kriterien
eine WAV-Datei abspielt.
Da ich die Datei nun versenden zu anderen Usern versenden möchte:
Ist es möglich, die WAV-Datei so in der XLS zu intergrieren
dass der User nicht 2 Dateien erhält ?
Freu mich auf einen Tipp
Gruss
Werner

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wav-Datei in xls integriefen ?
06.06.2014 18:30:51
Mullit
Hallo,
eine Möglichkeit wäre,
die Datei über Einfügen >>> Object (Object einfügen) >>> Aus Datei erstellen
einzufügen;
dann hiermit abspielen: 
Public Sub test()
ActiveSheet.OLEObjects(1).Verb Verb:=xlVerbPrimary
End Sub
Gruß,

Anzeige
AW: Wav-Datei in xls integriefen ? @Mullit
10.06.2014 12:59:21
Werner
Hallo Mullit
sorry, für die verspätete Antwort.
Habe es so wie du geschrieben gemacht
nur funktioniert das nicht :(
Was hab ich falsch gemacht ?
Freu mich auf einen Tip
Gruss
Werner
hier mal die Datei
https://www.herber.de/bbs/user/91052.xls
Wenn ich es jedoch in einer neuen "Blanko-Datei" erstellen
funktioniert es
https://www.herber.de/bbs/user/91053.xls

Anzeige
AW: Wav-Datei in xls integriefen ? @Mullit
10.06.2014 21:53:59
Mullit
Hallo,
kein Problem, Du hast bereits mit
den Checkboxen 2 OLEObjects in Deiner Tabelle,
also sollte dies funktionieren:
(die Namen der Objekte stehen ebenfalls oben links im Namensfeld)
Public Sub test()
ActiveSheet.OLEObjects("Objekt 1").Verb Verb:=xlVerbPrimary
End Sub

oder namensunabhängig: 
Option Explicit
Public Sub test()
Dim objOLEObject As OLEObject
For Each objOLEObject In ActiveSheet.OLEObjects
With objOLEObject
If .progID = "Package" Then
.Verb Verb:=xlVerbPrimary
Exit For
End If
End With
Next
End Sub
Gruß,
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige