Hallo zusammen,

ich bin neu ins VBA- Thema eingestiegen und hoffe auf Eure Hilfe.

Ich möchte Aktienkurse automatisch in meine Exceltabelle downloaden und es gibt zahlreiche Vorschläge im Internet und keiner funktioniert richtig, daher versuche ich meine Version ans Laufen zu bringen.

Also mein Problem ist, dass Excel die Daten nicht runterlädt und mir den fettmakierte Bereich mit der Fehlermeldung: Laufzeitfehler 1004 Objekt und Anwedungsfehler zurück gibt.

Kann ein erfahrener VBAler mal schauen, vielleicht ist es einfach ein Syntaxfehler ?

Sub Diesunddas()


Dim link As Variant
Dim i As Integer


Worksheets("Tabelle2").Range("B1:U50").Clear
link = "http://download.finance.yahoo.com/d/quotes.csv?s="

i = 5
    While Cells(i, 1) <> ""

Cells(i, 2) = link + Cells(i, 1) + "&f=nf6d1t1l1c1erdr1y"
i = i + 1
 Wend

Dim ticker As String


ticker = link + Cells(i, 1) + "&f=nf6d1t1l1c1erdr1y"


 With ActiveSheet.QueryTables.Add(Connection:=ticker _
        , Destination:=Range("A1"))
        .Name = "ExternalData_1"
        .FieldNames = True
        .RowNumbers = True
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """table1"",""table2"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With

End Sub