Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage immer in gleiche Zeile/Spalte schreiben

Abfrage immer in gleiche Zeile/Spalte schreiben
27.05.2017 13:51:12
chris58
Hallo !
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage immer in gleiche Zeile/Spalte schreiben
27.05.2017 15:49:34
chris58
Hallo !
Habe es selbst gelöst.
Hier der Code
Sub Kurseholen()
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 = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlAllTables
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = False
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Columns("A:A").ColumnWidth = 26
Columns("B:B").ColumnWidth = 19
Columns("C:C").ColumnWidth = 14
Columns("D:D").ColumnWidth = 12
End Sub

chris
Anzeige

306 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige