Aktienkurse per Makro aktualisieren
Excel-Beginner
ich bin mal wieder auf eure Hilfe angewiesen.
Die Datei ist hochgeladen unter https://www.herber.de/bbs/user/78759.xlsm
Im Reiter "Depot" befindet sich die Depotübersicht.
Per Makro möchte ich aus dem Web die aktuellen Aktienkurse in den Reiter "Kurse" importieren.
Das Makro ist mit dem Button im Reiter "Depot" verknüpft.
Wenn ich ausführe, zieht er sich die aktuellen Kurse, allerdings greift dann in der Depotübersicht der Sverweis ins leere (#Bezug). -->Reiter "Depot", Spalte E, Zeile 4-6.
Ich bin ratlos und hoffe auf eure Hilfe.
Vielen Dank vorab und Gruss,
Andi
hier noch das Makro:
Sub AktienkurseLaden()
' AktienkurseLaden Makro
' Tastenkombination: Strg+Umschalt+K
Sheets("Kurse").Select
Columns("A:BQ").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.boerse.de/kurse/DAX-Aktien/DE0008469008", Destination:=Range( _
"$A$1"))
.Name = "DE0008469008"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = """pushList"""
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
Sheets("Depot").Select
Range("A23").Select
End
Sub
Anzeige