Microsoft Excel

Herbers Excel/VBA-Archiv

Aktienkurse per Makro aktualisieren | Herbers Excel-Forum


Betrifft: Aktienkurse per Makro aktualisieren von: Excel-Beginner
Geschrieben am: 06.02.2012 14:59:37

Hallo liebe Excel-Profis,

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 


  

Betrifft: AW: Aktienkurse per Makro aktualisieren von: robert
Geschrieben am: 06.02.2012 16:29:09

https://www.herber.de/bbs/user/78761.xlsm

Hi,

vielleicht so ?

Statt Spalten löschen, nur Inhalt löschen.

Gruß
robert


  

Betrifft: AW: Aktienkurse per Makro aktualisieren von: Rudi Maintaire
Geschrieben am: 06.02.2012 16:29:22

Hallo,
...der Sverweis ins leere (#Bezug).
dann lösch doch nicht die Spalten sondern nur die Werte.

Gruß
Rudi


  

Betrifft: AW: Aktienkurse per Makro aktualisieren von: Excel-Beginner
Geschrieben am: 06.02.2012 16:42:48

Hi Robert / Rudi,

perfekt, vielen Dank für eure schnelle Hilfe, hat funktioniert.

Gruss, Andi


Beiträge aus den Excel-Beispielen zum Thema "Aktienkurse per Makro aktualisieren"