heute habe ich mal was Ausgefallenes.
Ich beziehe über eine Query-Abfrage Daten aus dem Internet.
Die entsprechende Seite ändert sich aber jeden Tag (ein Teil des Namens entspricht dem jeweiligen Datum).
Gibt es eine Möglichkeit, dass ich über das Makro die Query-Informationen direkt mitgebe und dann entsprechend mit z.B. Datum()-1 arbeite (ich muss immer den letzten Tag abfragen!)?
Der entscheidende Teil des Makros sieht so aus (alle anderen komponenten kopieren nur, etc,):
With ActiveSheet.QueryTables.Add(Connection:= _
"FINDER;LUA Tageswerte heute.iqy", Destination:= _
Range("A1"))
.FieldNames = False
.RefreshStyle = xlInsertDeleteCells
.RowNumbers = False
.FillAdjacentFormulas = False
.RefreshOnFileOpen = False
.HasAutoFormat = True
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SavePassword = False
.SaveData = True
End With
Die Stelle "FINDER;LUA Tageswerte heute.iqy", wäre also diejenige die ich anpassen müsste.
Ich habe im Moment keine Ahnung, ob das was ich plane überhaupt geht. Ich wäre sehr dankbar, wenn Ihr mir sagen könntet, ob es eine Möglichkeit gibt.
Wenn dann noch jemand einen explizieten Vorschlag hätte wäre mein Tag gerettet.
Vielen Dank im Vorraus
Gruß
Jens