ich habe leider ein Problem mit meiner Webabfrage.
Ich habe mir den untenstehenden Code aus dem Netz kopiert und kann ihn leider nicht meinen Bedürfnissen entsprechend anpassen.
Sub autoinput()
Set shFirstQtr = Workbooks(1).Worksheets(5)
Set qtQtrResults = shFirstQtr.QueryTables _
. _
Add(Connection:="URL;http://www.finanznachrichten.de/aktienkurse-index/dax-30.asp",
_
Destination:=shFirstQtr.Cells(1, 1))
With qtQtrResults
.WebFormatting = xlNone
.WebSelectionType = xlSpecifiedTables
.WebTables = "13"
.Refresh
End With
End Sub
Das Problem dabei ist folgendes: Die Webabfrage fügt Daten in den Spalten von A bis F ein und soll täglich aktualisiert werden. Bei jeder Aktualisierung werden die neusten Daten wieder in die spalten A bis F eingefügt und die Daten des Vortages verschieben sich in die Spalten weiter rechts.
Durch diese Verschiebung kann ich die jeweils aktualiserten Daten aber nich dauerhaft auf einem andern Tabellenblatt einbinden, da sich der Zellenbezug immer mitverschiebt. So brauche ich z.B. einen Zellbezug der immer den Inhalt der Zelle D2 anzeigt und nach der Aktualisierung nicht die Zelle J2.
Ein Möglichkeit wäre vielleicht die Webabfrage so zu verändern, dass die aktualisierten Daten direkt die alten Daten ersetzen/überschreiben?
Eine andere Möglichkeit wäre vielleicht einen absoluten und statischen Zellbezug zu verwenden. (Wenn es den gibt)
Ich habe auch schon ein Löschmakro ausprobiert, was vor der Aktualisierung der Webabfrage die alten Daten löscht und so die Daten immer in die selben Spalten eingefügt werden. Dabei verliert das Tabellenblatt mit den Auswertungen aber den Bezug.
Wäre für jeden Ratschlag dankbar.
Gruß
Tinka