historische kurse - 500 Beiträge pro Seite

[jannejustus]

wo bekomme ich historische kurse (so alt wie möglich)
vom dax und zinssatz (diskont) ?

[Trading_Angel]

Reuters

[helfer2000]

z.B. hier: http://www.historische-kurse.de.vu

[Balou2]

Für deutsche Aktien in € als Text- oder CSV-Datei gibt es so was meines Wissens nach nur bei

http://www.stockwatch.de/dynamic/overview.php3

Auf der Seite oben rechts die WKN eingeben und auf der nächsten Seite dann Kurse im Textformat wählen

Leider wird die Text- bzw. CSV-Datei bei jedem Aufruf neu erzeugt und damit ändern sich Dateiname und URL, was ein automatisches Runterladen der Daten z.B. mit Excel schwierig macht.

bis dahin

P.S. wenn jemand noch eine andere Seite kennt, die so was für in Deutschland gehandelte Aktien anbietet immer raus damit.

[Balou2]

Ich habe soeben fstgestellt, dass es unter

http://www.downloadquotes.com/

u.a. auch Kursdaten aller in Deutschland gehandelter Aktien (bis ca. 2 Jahre zurück) gibt und zwar als konfigurierbare Textdatei, d.h. die Anordnung der Felder und den Zeitraum kann man selbst bestimmen. Damit sind fast keine Konfigurierungsarbeiten mehr erforderlich, um die Daten in die gängige Börsensoftware importieren zu können.

[mvi]

Hallo,
bei der Wiso-CD sind Kurse seit 1987 (zumindest für Dax-Werte, Devisen, Indices...) dabei.
Man kann sie nach Ascii exportieren und dabei das Format frei definieren.

Ich habe aber auch ein Problem, sogar ein ähnliches:
Ich probiere Strategien aus, wo man immer n Aktien hält und alle t Tage m davon auswechseln darf. Eine solche Strategie ist z.B. die Kaufleutestrategie.
Dafür muß man wissen, welche Aktien zu welchem Zeitpunkt im Index waren (Dax, Mdax, Dow).
Weiß vielleicht jemand, wo man historische Indexzusammensetzungen nachschlagen kann?

Danke schonmal
mvi

[minimaster]

Das von Balou angesprochene Problem des automatischen Runterladens bei Stockwatch mit Excel lässt sich durch eine zweifache Abfrage der Webseite lösen.
1. Die Seite mit dem Link zu den historischen Kursen holen und da den Link herausfiltern
2. Mit dem Link sich dann die Daten holen.

Hier ein kleiner Codeausschnitt wie ich das gelöst habe.
Der Code ist so nicht lauffähig da er nur ein Teil eines umfangreicheren Makros darstellt. Aber wer sich ein bisschen damit auskennt kann ihn schnell an Seine Bedürfnisse anpassen.

wk = wm.Cells(i, wm.Range("WKN").Column).Value
sym = wm.Cells(i, wm.Range("symbol").Column).Value

uri = "URL;http://www.stockwatch.de/dynamic/ascii.php3?wkn=" & wk & ".2&symbol=" & sym

Set ws = Worksheets.Add
With ws.QueryTables.Add(Connection:=uri, Destination:=ws.Range("A1"))
.Refresh (False)
End With
uri = ""
For Each c In ws.Range("A20:J45")
If c.Value = "Tagesdaten" Then
uri = "URL;" & c.Hyperlinks(1).Name
Exit For
End If
Next c
ws.Delete
` 2te Webabfrage durchführen
Set ws = Worksheets.Add
With ws.QueryTables.Add(Connection:=uri, Destination:=ws.Cells(3, 1))
.Refresh (False)
End With
` Tabelle in einzelne Werte auflösen
ws.Rows("1:2").Delete
If Left$(Application.Version, 1) = "9" Then `wenn excel 2000
ws.Columns(1).Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ws.Columns(1).TextToColumns DataType:=xlDelimited, _
DecimalSeparator:=".", Semicolon:=True, ThousandsSeparator:=" "
Else ` wenn Excel 97
ws.Columns(1).Replace What:=",", Replacement:=".", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ws.Columns(1).TextToColumns Comma:=False, Semicolon:=True
End If
ws.Range(Cells(2, 2), Cells(600, 2)).Select
For Each ce In Selection `Datum umbauen
If ce.Value <> Empty Then
monat = Mid(ce.Value, 4, 2) & "/"
dag = Left(ce.Value, 2) & "/"
jahr = Right(ce.Value, 4)
neu = monat & dag & jahr
ce.Value = neu
End If
Next ce

[for4zim]

Unter dem link www.historische-kurse.de.vu findet man, entgegen dem Namen, nur maximal 3 Jahre alte Kurse.