Laufschrift in Userform einbinden

Hallo,

habe in Archiv schon etwas Hilfe gefunden und das Makro bearbeitet.
Funktioniert auch doch leider bekomme ich nach dem Schliessen der UserForm eine Fehlermeldung Laufzeitfehler 91

"Objektvariable oder With Blockvariable nicht festgelegt."

Kann mir jemand helfen wo mein Fehler liegt.

Auszug aus dem Makro

Für Test Userform frmMarquee
WebBrowser1

Private Sub UserForm_Initialize()
Dim sPath As String
Dim sFile As String

WebBrowser1.Navigate ""
sPath = Application.DefaultFilePath & "\marquee.htm"
Call CreateHTML(sPath)
sFile = Application.DefaultFilePath & "\marquee.htm"
Call CreateHTML(sFile)
With frmMarquee
.WebBrowser1.Navigate sPath
.WebBrowser1.Navigate url:=sFile
.Show
End With
Kill sFile
End Sub

Sub CreateHTML(sPath As String)
Open sPath For Output As #1
Print #1, ""
Print #1, ""
Print #1, ""
Print #1, " "
Print #1, " "
Print #1, ""
Close
End Sub

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Peter

ich habe Dein Bispiel jetzt nicht getestet, abe hier mal eine Code für Laufschrift in der Titelzeile der Userform.

' ************************************************************** ' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...) ' **************************************************************

Option Explicit Private Sub CommandButton1_Click() UserForm1.Show End Sub


' **************************************************************

'  Modul:  UserForm1  Typ = Userform

' **************************************************************
Option Explicit

' von GraFriPrivate Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Dim Text        As String

Dim Stopped     As Integer

	

Private Sub UserForm_Initialize()

	Text = "   Das ist der Lauftext für die Titelleiste   "     'Text für die Titelleiste

	Stopped = 1

End Sub

	

Private Sub UserForm_Layout()

	Call Scroll_Text

End Sub

	

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

	Stopped = 1

End Sub

	

Private Sub Scroll_Text()

	Dim LeftChar    As String

	Stopped = 0

	Do

		LeftChar = Left$(Text, 1)

		Text = Right$(Text, Len(Text) - 1) & LeftChar

		Me.Caption = Text

		Call Pause(100, 1)  'Tempo der Laufschrift

	Loop Until Stopped = 1

End Sub

	

Private Sub Pause(ByVal Pau As Single, ByVal DoEv As Integer)

	Call Sleep(Pau)

	If DoEv = 1 Then DoEvents

End Sub

Code eingefügt mit: Excel Code Jeanie

Gruß Hajo

Beliebteste Forumthreads (12 Monate)

Laufschrift in Userform einbinden

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Laufschrift in Userform einbinden

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread