Timeout Webabfrage
Peter
Nun kann es passieren, dass das Programm bei ".Refresh BackgroundQuery:=False" hängen bleibt.
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://index.onvista.de/snapshot.html?ID_NOTATION=20735", Destination:= _
Range("A1"))
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "4"
.Refresh BackgroundQuery:=False
End With
Ich suche ein VBA Programm, dass nach einem Timeout von 10 Sekunden den Code nach Refresh fortsetzt und nicht hängen bleibt.
Danke im Vuraus.