Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1608to1612
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
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Initialisierung eines Objektes "WMP" (global)

Initialisierung eines Objektes "WMP" (global)
18.02.2018 12:55:12
Rainer
Hallo Excelfreunde,
ich versuche einen Windows Media Player Control zu erzeugen. Das klappt auch soweit. Aber wenn ich den Control gleichzeitig als Objekt definieren will, dann geht es nicht.
Nach dem ersten Durchlauf ist der WMP erstellt, aber keine einzige globale Variable definiert.
Wenn ich die Schleife 2mal ausführe, dann klappt es? (Bei der zweiten Durchführung besteht das WMP Object bereits).

Public STOPPEN As Boolean
Public UMP1 As Object
Public shtPlaylist As Worksheet
Public shtBeamer As Worksheet
Public FirstSong As Integer
Sub Initialize()
Set shtPlaylist = ThisWorkbook.Sheets("Playlist")
Set shtBeamer = ThisWorkbook.Sheets("Beamer")
STOPPEN = False
On Error Resume Next
Set UMP1 = Sheets("MediaPlayer").WindowsMediaPlayer1
If Err.Number  0 Then
UMP1 = Sheets("MediaPlayer").OLEObjects.Add(ClassType:="WMPlayer.OCX.7", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=0, _
Top:=0, _
Width:=200, _
Height:=100 _
)
End If
End Sub
Danke und Gruß,
Rainer

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 14:48:59
Sepp
Hallo Rainer,
Set fehlt!
Modul Modul1 
Option Explicit 
 
Public STOPPEN As Boolean 
Public UMP1 As Object 
Public shtPlaylist As Worksheet 
Public shtBeamer As Worksheet 
Public FirstSong As Integer 
 
Sub Initialize() 
 
  If shtPlaylist Is Nothing Then Set shtPlaylist = ThisWorkbook.Sheets("Playlist") 
  If shtBeamer Is Nothing Then Set shtBeamer = ThisWorkbook.Sheets("Beamer") 
  STOPPEN = False 
 
  On Error Resume Next 
  If UMP1 Is Nothing Then Set UMP1 = Sheets("MediaPlayer").WindowsMediaPlayer1 
     
  If Err.Number <> 0 Then 
    Set UMP1 = Sheets("MediaPlayer").OLEObjects.Add(ClassType:="WMPlayer.OCX.7", _
      Link:=False, _
      DisplayAsIcon:=False, _
      Left:=0, _
      Top:=0, _
      Width:=200, _
      Height:=100 _
      ) 
  End If 
   
  Err.Clear 
  On Error GoTo 0 
 
End Sub 
 
 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 14:58:12
Rainer
Hallo Sepp,
danke für deine Hilfe. Aber dein Code hat genau das gleiche Verhalten. Wenn er 
Set UMP1 = Sheets("MediaPlayer").OLEObjects.Add(ClassType:="WMPlayer.OCX.7", ...

durchläuft (also eine Err.Number vorhanden war, weil kein UMP1 existiert), dann sind am Ende der Sub keine globalen Variablen definiert.
Gruß,
Rainer
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 15:21:36
Rainer
Auch dieser Versuch führt nicht zum Ziel...
Wenn ich den Call auf Stufe 2 weglasse und "von Hand" starte, dann klappt es wie es soll. Aber mit Aufruf geht es nicht.
Jede Hilfe ist willkommen!
Merkwürdig ist auch, dass die Meldung "Haltmodus nicht möglich" erscheint, aber NACHDEM das OLEObject erstellt wurde. Ich sehe hier also erst die MsgBox und dann die Meldung. Wenn kein Object erstellt werden muss, dann geht auch der Haltemodus weiter. Ich bin verwirrt...
Sub Initialize()
On Error Resume Next
Set UMP1 = Sheets("MediaPlayer").WindowsMediaPlayer1
If Err.Number  0 Then
Set UMP1 = Sheets("MediaPlayer").OLEObjects.Add(ClassType:="WMPlayer.OCX.7", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=0, _
Top:=0, _
Width:=200, _
Height:=100 _
)
MsgBox "Hallo"
End If
Call Stufe2
End Sub
Sub Stufe2()
Set shtPlaylist = ThisWorkbook.Sheets("Playlist")
Set shtBeamer = ThisWorkbook.Sheets("Beamer")
STOPPEN = False
Set UMP1 = Sheets("MediaPlayer").WindowsMediaPlayer1
End Sub

Anzeige
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 16:00:52
Sepp
Hallo Rainer,
kann dein problem nicht nachvollziehen.
Modul Modul1 
Option Explicit 
 
Public STOPPEN As Boolean 
Public UMP1 As Object 
Public shtPlaylist As Worksheet 
Public shtBeamer As Worksheet 
Public FirstSong As Integer 
 
Sub Initialize() 
 
  If shtPlaylist Is Nothing Then Set shtPlaylist = ThisWorkbook.Sheets("Playlist") 
  If shtBeamer Is Nothing Then Set shtBeamer = ThisWorkbook.Sheets("Beamer") 
  STOPPEN = False 
 
  On Error Resume Next 
  If UMP1 Is Nothing Then Set UMP1 = Sheets("MediaPlayer").WindowsMediaPlayer1 
     
  If Err.Number <> 0 Then 
    Set UMP1 = Sheets("MediaPlayer").OLEObjects.Add(ClassType:="WMPlayer.OCX.7", _
      Link:=False, _
      DisplayAsIcon:=False, _
      Left:=0, _
      Top:=0, _
      Width:=200, _
      Height:=100 _
      ) 
  End If 
   
  Err.Clear 
  On Error GoTo 0 
 
End Sub 
 
Sub test() 
 
Call Initialize 
 
MsgBox UMP1.Name & vbLf & shtPlaylist.Name & vbLf & shtBeamer.Name 
End Sub 


VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0
Gruß Sepp

Anzeige
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 16:28:18
Rainer
Hallo Sepp,
ich auch nicht. Aber ich bin dir dankbar für deine Mühe.
Die MsgBox in deinem Code sehe ich auch, alles richtig. Wenn ich die Sub erneut starte (oder jede andere) mit F8, dann sind alle globalen Variablen wieder weg.
Folgendes habe ich probiert:

Sub test()
Call Initialize
UMP1.Controls.stop        'Hier kommt der Fehler
MsgBox UMP1.Name & vbLf & shtPlaylist.Name & vbLf & shtBeamer.Name
Call BEENDEN
End Sub
Es endet mit Laufzeitfehler 438. Die Err.Number ist 40040.
Aber eben nur, wenn er in diesem Versuch das OLEObject für den Media Player neu erstellen muss.
Gruß,
Rainer
Anzeige
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 16:53:49
Sepp
Hallo Rainer,
das ist doch normal, wenn du im VBE mit F8 rummachst, dann werden meistens die globalen Variablen zurückgesetzt.
Gruß Sepp

AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 16:53:54
Sepp
Hallo Rainer,
das ist doch normal, wenn du im VBE mit F8 rummachst, dann werden meistens die globalen Variablen zurückgesetzt.
Gruß Sepp

AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 17:09:40
Rainer
Hallo Sepp,
Den Fehler bekomme ich aber genauso wenn ich es ohne F8 mache.
Warum löscht VBA globale Variablen, wenn ich debuggen will? Das verstehe ich noch weniger.
Produziert die Sub aus meinem letzten Beitrag bei dir keinen Fehler?
Danke und Gruß,
Rainer
Anzeige
Nein, kein Fehler! o.T.
18.02.2018 17:16:38
Sepp
Gruß Sepp

AW: Nein, kein Fehler! o.T.
18.02.2018 17:36:22
Rainer
Verdammt.
Danke fürs Testen.
Ich werde es morgen auf der Arbeit nochmal probieren. Da habe ich Windows 7 und Excel 2013.
Gruß,
Rainer
Vereinfachter Code (produziert bei meinem Excel 2016 unter Windows 10 den Fehler):
Option Explicit
Public UMP1 As Object
Sub test()
Call Initialize
UMP1.Controls.stop      'Fehler hier?
MsgBox UMP1.Name
End Sub
Sub Initialize()
On Error Resume Next
If UMP1 Is Nothing Then Set UMP1 = Sheets(1).WindowsMediaPlayer1
If Err.Number  0 Then
Set UMP1 = Sheets(1).OLEObjects.Add(ClassType:="WMPlayer.OCX.7", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=0, _
Top:=0, _
Width:=200, _
Height:=100 _
)
End If
Err.Clear
On Error GoTo 0
End Sub

Anzeige
AW: Initialisierung eines Objektes "WMP" (global)
18.02.2018 17:36:49
Mullit
Hallo,
yup, das ist ne böse Falle, wenn Du ActiveX-Controls (auch per Code..) in ein TabBlatt einfügst, wechselt Excel in den Entwurfsmodus und alle globalen und stat. Variablen werden auf ihren Initialisierungswerte zurückgesetzt...
Das kannst Du nur mit nem Timer lösen, wie hat Isi hier beschrieben...
Gruß, Mullit
Gelöst! Danke Mullit!
18.02.2018 18:08:48
Rainer
Hallo Mullit,
Besten Dank! Das wars!
Die Prozedur beenden lassen und über Application.Ontime nochmal starten.
So funktioniert es:
Sub Initialize()
On Error Resume Next
Set UMP1 = Sheets(1).WindowsMediaPlayer1
If Err.Number  0 Then
Set UMP1 = Sheets(1).OLEObjects.Add(ClassType:="WMPlayer.OCX.7", _
Link:=False, _
DisplayAsIcon:=False, _
Left:=0, _
Top:=0, _
Width:=200, _
Height:=100 _
)
  Call Application.OnTime(EarliestTime:=Now, _
Procedure:="Initialize")
End
End If
Err.Clear
On Error GoTo 0
End Sub

Anzeige

300 Forumthreads zu ähnlichen Themen

@Hans W. Herber: 1 Million Beiträge - Glückwunsch
mpb

Hallo Hans,
wenn ich die URLs richtig interpretiere, haben wir im Forum soeben die Zahl von 1 Million Beiträgen überschritten.
Herzlichen Glückwunsch zu dem Erfolg Deines "Babys"!
Gruß
Martin
07.08.2008 16:23:47
Thread-ID: 1000004
3 Beiträge
Anzeige
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Zellen mit Werten aus darüberliegender Zelle fülle
Andreas

Guten Morgen!
Ich hätte folgendes Problem: Ich erhalte automatisiert Exceltabellen, bei denen nicht alle Zellen einer Zeile gefüllt werden, wenn dort der Inhalt einer darüberliegenden Zeile stehen sollte. Zur Weiterverarbeitung muss ich aber diese Zellen mit den dazugehörigen Werten füllen....
11.08.2008 08:59:25
Thread-ID: 1000713
4 Beiträge
Anzeige
Zellen formatieren mit vorangehenden "Nullen"
Addi

Hallo zusammen,
ich habe eine lange Liste, in der in einer Spalte Daten stehen, wo ab und zu vorangehende Nullen nötig sind (mal eine - mal 2...etc.) - und manchmal auch keine.
Wie kann ich diese Zellen formatieren, das die vorangehenden "Nullen" nicht automatisch weggelassen werden?
11.08.2008 10:37:00
Thread-ID: 1000746
8 Beiträge
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
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
"Bild von Excel-Kamara" variabel...
Excel-Kamara"

Hi Experten,
einen Bereich (Zellen, Bild, Grafik...) mit der Excel-Kamara "fotografieren" und in eine andere Excelmappe einfügen ist kein Problem.
Bei mir werden Ecxel_Vorlagen ausgefüllt und unter fortlaufender Dateinummer abgespeichert, zB. QR000123, QR000124, QR000125 usw. Alle Datei...
12.08.2008 10:33:28
Thread-ID: 1001116
4 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
3
1
7
8
2
3
6
11
5
5
8
15
3
7
4
4
3
2
7
4
3
4