Benötige eine Schleife die sich jede Stunde automatisch aktualisiert. Erst wenn ich Zelle a12 oder einem Feld gehe, soll die Schleife beendet werden. Ich möchte eine internetseite immer auf den neusten Stand haben.
Danke im voraus
Michael
Sub Webabfrage_erstellen()
Dim qtQueryTable As QueryTable
Set qtQueryTable = _
ActiveSheet.QueryTables.Add(Connection:= _
_
"URL;http://www.sportego.de/german/sport/olympische_spiele/winter2002/slc2002_19.php"
_
, Destination:=Range("A1"))
'_________________________
Cells.Select
Selection.ClearContents
'_________________________
With qtQueryTable
.Name = "Michael"
.FieldNames = True
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "8"
.Refresh BackgroundQuery:=False
End With
End Sub
Damit hab ich zwar die aktuelle Seite aber sonst nichts!
Wenn ich das Programm duchlaufen lasse, schreibt er mir nicht die neue Aktualisierung in A1. Liegt es an destination?
Vielen Dank Michael