Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Fage zu einem Tipp
Autor: Willie
Datum: 13.05.12 21:14
Hallo Martoeng, erst einmal vielen Dank für eine Antwort am Sonntag (da sitzen andere auf der Terrasse). Leider kann ich die Antwort nicht so recht nachvollziehen, da ich leider nicht herausgefunden habe, wo ich es in der Routine ein- bzw. ersetze. Vielleicht deshalb erstmal eine genauere Erklärung, wie ich die Routine benutze. Da ich, wie schon geschrieben, noch nicht so in den Tiefen des VBA zuhause bin, habe ich die Routine für meine Zwecke nur unwesentlich verändert. ############ Makro von Tabelle6 mp3 START-STOP ############ Option Explicit 'ursprüngliche Zuweisung (Const myMP3 As String = "C:\abc.mp3") Dim myMP3 As String Dim blnDontPlayAgain As Boolean Private Sub Worksheet_Calculate() If [A1] > 0 Then If Not blnDontPlayAgain Then ' MP3 abspielen myMP3 = Cells(5, 1) 'Speicherort der abzuspielenden Datei MP3_Play myMP3, "MyAlias" blnDontPlayAgain = True End If . . . ############################# Anstelle der konstanten Beispielzuordnung für myMP3 in Zeile 2 weise ich diesen Wert in Zeile 11 über die Zelle A5 des Arbeitsblattes zu. Für die Zelle A1 ist die Abfrage auf "> 0" geändert, da ja nur der Wechsel +/- 1 ausgewertet wird. Da die Zelle A1 die Funktion '=A2' enthält, muss ich jeweils die Zelle A2 ändern. Warum die Änderung nicht direkt in A1 erfolgen kann, erzieht sich meiner Kenntnis, funktioniert jedenfalls nicht. Ergebnis: per Makro den Speicherort der abzuspielenden Datei in die Zelle A5. In der Userform ist ein Button (Start-Stop), der den Wert der Zelle A2 je nach Zustand von '0' auf '1' oder von '1' auf '0' ändert. Bei Änderung zu '1' startet die Wiedergabe, bei Änderung zu '0' stoppt sie. Wenn die Datei jedoch fertig gespielt ist, bleibt der Wert der Zelle A2 auf '1'. Folge: Wenn ich nach Beendigung der ersten MP3 der Zelle A5 eine neue Datei zugewiesen habe, muss ich den Button (Start-Stop)in der Userform 2x anklicken. Das 1. Mal für Änderung A2 = '0' (keine Reaktion, Datei fertig aber A2 noch immer '1' ) Das 2. Mal für Änderung A2 = '1' (Start der neuen Datei) Ein ergonomisch unschönes Handling. Aus diesem Grund die Frage nach einem Ende-Flag, das mein Programm auswerten kann, um nach Ende der MP3 den Wert der Zelle A2 per Makro automatisch auf 0 zu setzen, damit ich nach einer neuen Dateizuweisung den Start-Button nur 1x betätigen muss. Ich hoffe, mein Problem etwas genauer verdeutlicht zu haben. Gruß Willie

Fage zu einem Tipp	3.837	Willie	12.05.12 20:41
Re: Fage zu einem Tipp	2.247	Martoeng	13.05.12 18:55
Re: Fage zu einem Tipp	2.231	Willie	13.05.12 21:14
Re: Fage zu einem Tipp	2.171	Martoeng	14.05.12 18:35
Re: Fage zu einem Tipp	2.122	Willie	14.05.12 19:18
Re: Fage zu einem Tipp	2.113	Martoeng	18.05.12 19:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen