habe folgenden Code hinter einer UserForm (diesen Code hab ich dank der guten Hilfe hier im Forum zusammengebastelt). An dieser Stelle ein DANKESCHÖN allen Forumanen:
Private Sub Userform_Initialize() 'Schichtplan für den laufenden Monat wird angezeigt
Dim Monat As String
Frm_Schichtplan.Caption = "Schichtplan"
WebBrowser1.Navigate "http://test.com/einsatzplan.asp"
'Lösung für Excel 2003 Problem: 3 Sekunden zum Laden warten
Application.Wait (Now + TimeValue("0:00:03"))
'ermittle anhand des aktuellen Datums den Monat
Date = Now()
Monat = Format(Date, "MM")
With WebBrowser1.Document
.getElementById("v_oe").Value = "1093"
.getElementById("v_alleoeanz").Value = "1"
.getElementById("v_nurleiter").Value = "0"
.getElementById("v_legendejn").Value = "Ja"
.getElementById("v_fachteam").Value = "Alle"
.getElementById("v_monat").Value = "11"
.getElementById("v_go").Click
End With
End Sub
Diese Userform ruf ich mittels einer CommandButton auf:Frm_Schichtplan.show
Da erzeug es mir immer einen Laufzeitfehler 91 und der Code steht dann bei
Frm_Schichtplan still.
Wenn ich dann aber auf F5 für Fortsetzung klicke, so gehts weiter und der Schichtplan wird korrekt angezeigt.
was genau müsste ich hier als Objektvariable definieren, resp. anders schreiben ?
Herzlichen Dank !