Laufzeitfehler 91 - mit WebbrowserAddin
31.01.2014 07:08:42
Pascal
Ich habe auf einer Userform1 u.a. eine Schaltfläche, die eine weitere Userform2 öffnet.
Auf der zweiten UserForm2 ist das Webbrowser-Addin drauf, welches aus unserem Firmen-Intranet einen sogenannten Schichtenplan laden soll.
Folgender Code ist hinter dieser Schaltfläche auf der UserForm1:
Private Sub CommandButton10_Click()
Dim form As Object
Set form = Frm_Schichtplan 'Objektvariable für Schichtenplan (Webbrowser-Addin) wird gesezt.
'Lösung für Excel 2003 Problem: 3 Sekunden zum Laden warten
Application.Wait (Now + TimeValue("0:00:03"))
Workbooks(Workbookname_WDB).Activate
Frm_Schichtplan.Show
End Sub
Private Sub UserForm_Initialize() 'Schichtplan für den laufenden Monat wird angezeigt
Dim d As Date
Dim Monat As String
d = Now()
Me.Caption = "Schichtplan"
WebBrowser1.Navigate2 "http://firmenweb.com/forms/frc_wahl_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
Monat = Format(d, "MM")
If Monat Nun mein Problem:
zwar wird auf Druck der Schaltfläche auf UserForm1 dann auch das Frm_Schichtplan angezeigt, und auch der entsprechende Schichtplan geladen.
aber...
Oftmals ... wenn ich kurz auf dem PC eine andere Applikation verwendete und dann wieder diesen Schichtplan öffnen will (Druck der Schaltfläche auf UserForm1) so erscheint bei mir
Laufzeitfehler 91 - Objektvariable nicht definiert.
was kann ich tun, um in jedem Fall sicherzustellen, dass der Schichtplan geöffnet wird ohne Laufzeitfehler ?
Was müsste ich also in meinem Code noch ändern / einbauen ?
Ziel soll sein, dass der Schichtplan auch dann geöffnet wird, wenn der User kurz von einer anderen Applikation auf dem PC zurückkehrt auf die UserForm und dort die Schaltfläche für das Öffnen des Schichtenplans drückt.
Hoffe, meine Frage seie so verständlich und ... bin für jeglichen Tip sehr dankbar!