Office: hin und wieder Laufzeitfehler 424 Objekt erforderlich

DanielW82 · 16. März 2015

Hallo,

hab ein Makro das Daten von einer Website ausliest und in ein Excel 2013 Tabellenblatt schreibt.

Dies dauert ca. 2 Minuten und funktioniert in 9 von 10 Fällen einwandfrei.

Doch hin und wieder bricht das Makro ab mit dem Laufzeitfehler 424 Objekt erforderlich.

Kann mir jemand sagen woran das liegt?

Meine Semiprofessionelle *cool.gif* Erklärung ist, das die Webiste manchmal nicht schnell genung anwortet und das Makro nur eine Gewissezeit auf die Daten "wartet".

Gibt es eine Lösung dafür?

so ala
if Lauftzeitfehler424 then mach an der Stelle in der Makroschleife weiter...

MfG Daniel *Smilie

:)

xlph · 18. März 2015

Hallo,

wie sieht die Verbindung (Code) zum Internet aus?

Beverly · 18. März 2015

Hi Daniel,

liest du mit dem IE aus? Dann hilft vielleicht diese Verfahrensweise:

Code:

Dim IEApp As Object
Dim IEDocument As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate Range("A1").Hyperlinks(1).Address
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
Set IEDocument = IEApp.Document
Do: Loop Until IEDocument.ReadyState = "complete"

' und hier dann dein Code zum Auslesen der Seite

Set IEDocument = Nothing
IEApp.Quit
Set IEApp = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

DanielW82 · 18. März 2015

Code:

Function AbfrageLuft()

zeilen = Worksheets("Entfernungen").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For schleife = 1 To zeilen
Dim IEApp As Object, luftlinie As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "Entfernungsrechner - Entfernung berechnen und darstellen" & Cells(schleife, 1) & "_" & Cells(schleife, 2)
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.document.readyState = "complete"
Set luftlinie = IEApp.document.getElementById("airline") 'hier entsteht der Laufzeitfehler 424
If Not luftlinie Is Nothing Then

Worksheets("Entfernungen").Cells(schleife, 3) = Zahlen_übernehmen(luftlinie.innertext) / 100

End If
IEApp.Quit
Set IEApp = Nothing

UserForm3.Label1 = schleife & " von " & zeilen & " Distanzen ausgelesen"

Next schleife
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Sorry, das ich erst so spät antworte.

DanielW82 · 18. März 2015

Code:

Function AbfrageLuft()

zeilen = Worksheets("Entfernungen").UsedRange.SpecialCells(xlCellTypeLastCell).Row
For schleife = 1 To zeilen
Dim IEApp As Object, luftlinie As Object
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Visible = False
IEApp.Navigate "Entfernungsrechner - Entfernung berechnen und darstellen" & Cells(schleife, 1) & "_" & Cells(schleife, 2)
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.document.readyState = "complete"
Set luftlinie = IEApp.document.getElementById("airline")
If Not luftlinie Is Nothing Then

Worksheets("Entfernungen").Cells(schleife, 3) = Zahlen_übernehmen(luftlinie.innertext) / 100

End If
Set luftlinie = Nothing
IEApp.Quit
Set IEApp = Nothing

UserForm3.Label1 = schleife & " von " & zeilen & " Distanzen ausgelesen"

Next schleife
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hab mein Code um Set luftlinie = Nothing ergänzt *Smilie.
Werd das Makro die nächste Stunde mal ausgiebig testen.

MfG Daniel

DanielW82 · 19. März 2015

Ole, 20 mal getestet und kein Laufzeitfehler!

Vielen Dank Beverly. *Smilie

MfG Daniel

Beverly · 19. März 2015

Hi Daniel,

Variablen sollte man halt eigentlich (da wo es möglich ist) am Ende auch immer wieder zurücksetzen, um sozusagen den "Urzustand" wieder herzustellen. *wink.gif*

Office: hin und wieder Laufzeitfehler 424 Objekt erforderlich

hin und wieder Laufzeitfehler 424 Objekt erforderlich

hin und wieder Laufzeitfehler 424 Objekt erforderlich

hin und wieder Laufzeitfehler 424 Objekt erforderlich

hin und wieder Laufzeitfehler 424 Objekt erforderlich - Similar Threads - Laufzeitfehler 424 Objekt

Excel VBA Laufzeitfehler 424 Objekt erforderlich

Laufzeitfehler "424" Objekt erforderlich Selenium VBA

Laufzeitfehler 424: Objekt erforderlich seit Umstellung auf O365

Laufzeitfehler '424' Objekt erforderlich

Laufzeitfehler 424 Objekt erforderlich

Laufzeitfehler 424

Laufzeitfehler '424': Objekt erforderlich