Hilfe für Excel Kursabfrage bei Yahoo - Codeanpassung - 500 Beiträge pro Seite

[lekcin]

hallo,

gestern ab 22:00 uhr hat yahoo seine kursseiten umgestellt. bisher konnte ich über eien vba code in excel die kurse für mein depot abfragen - seit der umstellung ist das nicht mehr möglich - weiß jemand von euch wie man diesem code entsprechend anpassen muß ?

danke für eure hilfe!!!!

hier der code:

Sub Abruf()
Dim zeile As Integer
Dim wks As Worksheet
Dim var As Variant
Dim sWkn As String, sQuery As String

zeile = 2
sWkn = "1"

Do Until sWkn = ""
Worksheets("Daten").Select
sWkn = Cells(zeile, 1).Value
If sWkn = "" Then
Exit Do
End If

Application.ScreenUpdating = False

Set wks = ActiveSheet

sQuery = "http://de.finance.yahoo.com/q?m=*&s=" & sWkn & "&d=v1"

Worksheets.Add after:=Worksheets(Worksheets.Count)

With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & sQuery, _
Destination:=Range("A1"))
.Refresh BackgroundQuery:=False
End With

var = Application.Match(sWkn & "*", Columns(1), 0)

wks.Cells(zeile, 2).Value = Cells(var, 2).Value
wks.Cells(zeile, 3).Value = Cells(var, 1).Value
wks.Cells(zeile, 3).Value = Cells(var, 3).Value
wks.Cells(zeile, 4).Value = Cells(var, 5).Value
wks.Cells(zeile, 5).Value = Cells(var, 6).Value
wks.Cells(zeile, 6).Value = Cells(var, 7).Value
wks.Cells(zeile, 7).Value = Cells(var, 8).Value
wks.Cells(zeile, 8).Value = Now

Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

Worksheets("Daten").Select
Range("A1").Select
Columns("A:I").AutoFit
Application.ScreenUpdating = True

zeile = zeile + 1
Loop
End Sub

[Mathefreak]

Das geht deutlich einfacher bei Yahoo, du musst nicht den ganzen Overhead (Werbung etc.) mit laden und dann die Daten mühsam raussuchen. Yahoo unterstützt auch den Download in gut auswertbaren CVS-Dateien.
Bei Interesse kannst du ein Excelblatt haben, dass für ein Portfolio die aktuellen Kurse und sonstige Angaben von Interesse von Yahoo lädt. Einfach BM an mich.

Gruß M.