Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1640to1644
1640to1644
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wiedergabe beenden

Forumthread: Wiedergabe beenden

Wiedergabe beenden
26.08.2018 14:56:57
marta
Hallo zusammen
Ich habe eine Userform mit Laufschrift und spielt ein Mp3 Song ab.
Der Player ist aber nicht sichtbar.
Das läuft prima.
Wenn ich die Laufschrift an klicke soll die Userform beendet werden und auch die Wiedergabe des Mp3 Song.
Das beenden der Userform habe ich hinbekommen. Aber mit dem beenden der Wiedergabe habe ich Probleme. Diese läuft weiter auch wenn Userform geschlossen ist.
Wie beende ich die Wiedergabe durch klick der Laufschrift?
Oder gibt es eine andere Möglichkeit eine Mp3 Datei abzuspielen?
Gruß Marta
Hier ist mein Beispieldatei: https://www.herber.de/bbs/user/123567.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wiedergabe beenden
26.08.2018 16:17:32
Nepumuk
Hallo Marta,
da hast du dir selbst ein Bein gestellt. Das Starten des Players hast du in das Initialize-Event des Userforms geschrieben. Und im Modul1 greifst du auf das Label des Userforms zu. Da du auch nach dem entladen des Userforms auf das Label zugreifst wird das Initialize-Event erneut durchlaufen. Ändere den Code so:
Im Modul1 nur noch:
Option Explicit

Public Sub start()
    userform1.Show
End Sub

Und im Modul des Userforms:
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private LaufbandExit As Boolean

Private Sub Label1_Click()
    LaufbandExit = True
    WindowsMediaPlayer1.Close
    Unload Me
End Sub

Private Sub UserForm_Activate()
    With WindowsMediaPlayer1
        .Enabled = False
        .URL = "G:\Eigene Dateien\Eigene Musik\AC-DC\Disc 1\02 Shoot to Thrill.mp3"
    End With
    LaufbandExit = False
    LaufbandStart
End Sub

Private Sub LaufbandStart()
    Dim LaufText As String
    LaufText = "Klick! Mich! An! "
    Application.StatusBar = LaufText
    Do
        Sleep 300
        LaufText = Right$(LaufText, Len(LaufText) - 1) & Left$(LaufText, 1)
        Label1 = LaufText
        DoEvents
    Loop Until LaufbandExit
End Sub

Gruß
Nepumuk
Anzeige
AW: Wiedergabe beenden
26.08.2018 16:33:48
marta
Hallo
Danke für die info das funktioiert.
Gruß Marta
;

Forumthreads zu verwandten Themen

Makro beenden bei Option "Schliessen"
Jürgen

Hallo Excel-Profis
ich habe folgenden Code in ein Makro eingebaut:
'Drucken mit Vorschau
Application.ActivePrinter = "\\dataserv\HP LaserJet 5L AV auf Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True, Collate:= _
True
Hier wird der Standard-Drucker an...
11.08.2008 12:39:00
Thread-ID: 1000811
9 Beiträge
Klick zählen - dann beenden
Frank

Hallo Zusammen!!!
Vielleicht kann mir bei der absurden Idee doch jemand weiter helfen. In einem Arbeitsblatt wird durch Klick in eine Zelle eine UF geöffnet. In dieser UF befindet sich das Kalender - Steuerelement. Mittels folgenden Code,
Private Sub Calendar1_Click() ActiveCell.Value...
24.11.2008 13:17:00
Thread-ID: 1027288
5 Beiträge
Funktionen beenden
Joachim

Hi,
brauche doch noch mal hilfe:
Ich habe auf meiner userform einen Button, der führt verschiedene Funktionen aus, die in einem Modul sind:
Private Sub CommandButton5_Click() Call Kopieren Call Prüfen Call Formatieren Call Daten_sperren End Sub
So, und nun zum Problem, wenn z...
26.11.2008 11:20:00
Thread-ID: 1027972
4 Beiträge
Anzeige
bei Fehlermeldung automatisch auf beenden
Lucia

Hallo zusammen,
ich hab einen schönen code, der macht, dass Aufgaben über Outlook an die Mitarbeiter (nach Kürzel in wer) verteilt werden. Das klappt wunderbar, Outlook öffnet sich, ich kann noch mal drüber schauen und dann versenden. Zum Schluss kommt im Excel dann die Fehlermeldung:
...
27.11.2008 13:59:08
Thread-ID: 1028363
10 Beiträge
Symbolleiste ausblenden bei beenden
Joachim

Hi
ich blende beim starten meines Excel-Sheets eine Symbolleiste ein
Private Sub Workbook_Open() Symbolleiste_ein End Sub
Wie kann ich die Symbolleiste (Symbolleiste_aus) wieder ausblenden. bzw. in welches Ereignis muss das rein, damit die Symbolleiste ausgeblendet wird, egal, ob...
09.12.2008 13:12:00
Thread-ID: 1031375
3 Beiträge
Vollbildmodus beenden beim Datei schließen
Thomas

Hallo,
ich weiß, zu dem Thema gibt es unzählige Beiträge. Ich sitze jetzt schon ne Stunde und find keine Lösung.
Das Problem:
Ich starte eine Datei im Vollbildmodus, blende die Menüleisten aus und will beim Beenden den Vollbisldmodus wieder verlassen. Über einen Button funktioniert...
15.01.2009 23:30:00
Thread-ID: 1040351
7 Beiträge
Nach MsgBox Code beenden
Heinz

Hallo Leute
Ich komme mit folgenden Code nicht weiter.
Der Code sollte nach jeder MsgBox gestoppt werden, bis alle Bedinungen erfüllt wurden.
Ich habe 3 MsgBox.
Könnte mir dazu bitte jemand weiterhelfen.
Danke Heinz
Private Sub CommandButton6_Click() Application.Screen...
18.01.2009 15:20:40
Thread-ID: 1041137
7 Beiträge
Anzeige
Nach Datei-Beenden startet Makro nicht
Edie

Hallo zusammen,
wenn ich die Datei über das Menü: Datei-Beenden und anschließenden Speichern beende,
bei erneuten öffne der Datei und start des Makros (UserForm) bekommen ich eine Fehlermeldung: „Microsoft Office Excel hat ein Problem festgestellt…“
Beim Debuggen kommt folgende Meld...
29.01.2009 08:50:00
Thread-ID: 1044793
3 Beiträge
Anzeige
Instanzen sehen und beenden (code z.T vorhanden)
chris

Hallo VBA experten,
ich suche mal wieder Hilfe.
Hoffe ihr könnt mir helfen.
ich habe hier einen Code mit diesem sehe ich die Anzahl aller
Excelinstanzen die gestartet wurden auch wenn Sie unsichtbar sind.
Ich wollte den Code so modifizieren das ich die einzelnen Instanzen be...
18.02.2009 11:31:00
Thread-ID: 1051743
9 Beiträge
Anzeige
Makro beenden / aus Loop springen
nicobit

Hallo Forum :)
hab ne frage,
Ich habe ein Makro welches bei falschem Input(normal aus Tabelle) mit einer InputBox nachfragt, diese ist mit einer Loop ausgestattet, sodass sie immer wider fragt wenn die Eingabe nicht stimmt.
Das Problem ist dass ich innerhalb dieses Loops eine falsch...
24.02.2009 12:21:13
Thread-ID: 1053452
5 Beiträge
Wieso muss ich Excel zweimal beenden?
wulfguard

Guten Abend,
ich habe folgendes Problem, nach dem ich meinen Code ein wenig optimiert!?!(zumindest ist der Laufzeitfehler raus ;) )
habe ich folgenden Effekt, wenn ich Excel beenden will, wird nur mein Workbook beendet und nach dem das geschlossen ist muss ich Excel nochmal beenden.
05.03.2009 23:15:41
Thread-ID: 1057086
5 Beiträge
"speichern und beenden"
Ralf

Hallo zusammen,
ich habe folgendes Problem.
Ich habe eine Datei mit vielen Makros und Verknüpfungen auf andere Dateien. Wenn ich diese Datei speichere und beende öffnet sich die Datei wieder. Es ist egal ob ich das separat mache, also erst speichern und dann beenden oder über das "x" di...
10.03.2009 16:35:59
Thread-ID: 1058786
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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