Abfrage immer in gleiche Zeile/Spalte schreiben
27.05.2017 13:51:12
chris58
Ich habe mit dem Macrorecorder eine Webabfrage gemacht. Das geht auch, nur der Code schreibt, wenn ich das zweitemal eine Abfrage durchführe, diese nicht wie im Code in A1 sondern in E1.....bei neuerlicher Abfrage in I1 usw. Ich will aber, das er immer in A1 schreibt, also die alten Zahlen überschreibt. Wie kann ich das machen ?
Hier der Code:
Sub Kurseholen()
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://kursinfo.bankaustria.at/IBT-BA-HP/currency/rates/others.html", _
Destination:=Range("A1"))
.Name = "others_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("B:B").ColumnWidth = 47
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Columns("C:C").ColumnWidth = 15.14
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
Columns("D:D").ColumnWidth = 14.57
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
End Sub
Danke für Eure Hilfe
chri
Anzeige