Laufzeitfehler 91 bei
10.11.2007 12:58:00
Vera
ich versuche mir mittels vba die aktuelle Lottoziehung in ein sheet zu laden.
Folgender Code erzeugt fast immer beim Erstaufruf an der gekennzeichneten Stelle die Fehlerbeldung:
Laufzeitfehler '91'
Objektvariable oder With-Block-Variable nicht festgelegt.
Sub AktuelleZiehungImport()
Dim URL As String
Dim IEApp As Object
Dim IEDoc As Object
Dim URLText As String
Dim Schleife As Integer
Dim Zeile As Integer
Dim Ziehungsdatum As Date
Dim Z1, Z2, Z3, Z4, Z5, Z6, Zusatzzahl, Superzahl As Byte
Dim Feld As Variant
Set IEApp = CreateObject("InternetExplorer.Application")
Application.ScreenUpdating = False
IEApp.Visible = False 'True 'False
URL="http://www. _
dielottozahlen.de/lotto/6aus49/tagesziehung.html"
IEApp.Navigate URL
Do: DoEvents: Loop Until IEApp.Busy = False
Set IEDoc = IEApp.Document
'die folgende Zeile erzeugt die Fehlermeldung
URLText = IEDoc.Body.InnerText
IEApp.Quit
Set IEDoc = Nothing
Set IEApp = Nothing
'... weitere Zeilen ...
End Sub
Rufe ich das Makro ein zweites Mal auf läuft es i.d.Regel fehlerfrei durch.
Auch wenn ich folgende 2 Zeilen vor der Fehlerzeile einfüge klappte es.
Nochmal:
On Error GoTo Nochmal
Was muss ich wie richtig definieren, damit die Fehlermeldung immer ausbleibt?
Liebe Grüße
Vera