Externe Daten an gleiche Stelle
chris58
Ich habe mit dem Macrorecorder dieses aufgezeichnet. Die abgefragten Daten sollen jedesmal an der gleichen Stelle (B3) eingefügt werden. Jedoch werden die Daten jedesmal um eine Spalte weitergeschoben, das ich dann diese Daten nebeneinander geschrieben sehe. Ich will aber, das die Daten bei jeder Abfrage überschrieben werden. Was muß ich einfügen, das dies der Fall ist.
Danke für Eure Antwort
chris
Sub Kurseholen()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.boerse.at/boersen_u_maerkte", _
Destination:=Range("B3"))
.Name = "kurse"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
Anzeige