Sub oder Function nicht definiert bei Auruf mit Call

[o0Julia0o]

hi, ich habe folgendes in einer Tabelle als Code hinterlegt zum Window Media Player:


Private Sub UserForm_Activate()
WindowsMediaPlayer1.Url = "E:\Test.mp4"
End Sub

Private Sub WindowsMediaPlayer1_PlayStateChange(ByVal NewState As Long)
If NewState = 3 Then
  WindowsMediaPlayer1.fullScreen = False
End If
End Sub

Ich habe auf WMP auf dem Tabellenblatt Tabelle 1 hinzugefügt. Wenn ich jetzt die UserForm_Activate  ausführe, wird das Video 1x abgespielt(geht da auch in Dauerschleife?).

Ich möchte jetzt vom Tabellenblatt: Tabelle 2, Tabelle 1 aufrufen & das Video starten. Das geht jedoch nicht. Da ich das in einem Modul nicht tun darf. Also:
Call UserForm_Activate
funkioniert nicht: Sub oder Function nicht definiert
Und
WindowsMediaPlayer1.Url = "E:\Test.mp4" 
ergbit Fehler 424 Objekt erforderlich.

[derHoepp]

Moin,

wenn du keine UserForm nutzt sondern Worksheet-Objekte, solltest du dich auch an die Worksheet-Events hängen. 

Viele Grüße
derHöpp