Abfrage der Börsen Werte defekt

[Robert Lehmann]

Hallo Leute,

eigentlich hab ich mir die aktuellen Werte meiner Aktien Werte abgefragt.
Leider bekomme ich jetzt eine Fehler Meldung.

Am besten ich poste mal den Quelltext.



Sub download()

Range("F3:F1000").ClearContents
Dim W As Worksheet: Set W = ActiveSheet
    Dim Last As Integer: Last = W.Range("A1000").End(xlUp).Row
    If Last = 1 Then Exit Sub
    Dim Symbols As String
    Dim I As Integer
    For I = 3 To Last
    Symbols = Symbols & W.Range("A" & I).Value & "+"
    Next I
    Symbols = Left(Symbols, Len(Symbols) - 1)
        With ActiveSheet.QueryTables.Add(Connection:="Text;http://finance.yahoo.com/d/quotes.csv?s= " & Symbols & " &f=sl1", Destination:=Range("$F$3"))
            .Name = "quotes.csv?s=AAPL+MCD+DAI.DE&f=sl1"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlInsertDeleteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = True
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(9, 2, 1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
            
        End With
End Sub

als nachricht bekomme ich dann den Anhang.

Hoffe es weiß wer Rat ich komm einfach nicht drauf.

Besten Dank
Bert

[RPP63]

Moin!
Ohne dies jetzt nachzustellen, gehe ich davon aus, dass der Link mittlerweile tot ist.
Jedenfalls sind mir in letzter einige Thread mit Yahoo-Problemen aufgefallen.

Gruß Ralf

[Robert Lehmann]

Danke für die Antwort.

welche alternativen gibt es?

Leider habe ich den code nicht selber geschrieben.

Danke 
Bert

[Bernie]

Hallo Bert

schau mal hier... Historische Aktienkurse von Yahoo

[Robert Lehmann]

Hallo Bernie,

danke für den Link.

Leider ist die Excel sehr umfangreich. 
Würde den Quellcode gerne in meine Excel einbauen.
Gibt es diesbezüglich nicht einfach eine neue Zieladresse?
Also nicht Yahoo sondern börse.de ? weiß nur nicht wie der Code dann aussieht?

Mich interessieren auch nur die aktuellen Werte.
Die historischen brauch ich nicht unbedingt.


Besten Dank und schönen Tag noch

Gruß
Bert

[Bernie]

Hallo Bert,

du kannst du Software, die ich dir empfohlen habe auch ausschließlich für aktuelle Kursdaten verwenden. Es muss lediglich das aktuelle Datum und die Anzahl der zurückliegenden Tage angegeben werden.

Ansonsten kannst du jedes Börsenportal für Webabfragen nutzen. Schau mal hier im Forum nach "Power Query" ab Office 2007. Es sei denn du verwendest Office 2016, da ist Power Query bereits enthalten.

Falls du nicht zurecht kommst, stelle bitte eine Mustermappe ins Forum, dann kann ich dir evtl. helfen.

[Bamberg]

Servus Bert,

Yahoo hat m.W. die API still gelegt.
Wenn Du auf Google Finance umbauen möchtest, hier eine gute Beschreibung.

Google Finance: Historische Kursdaten in Excel

LG Gerd