ich habe versucht über Excel Ariva Aktienkurse abzurufen aber mit add.query als Webabfrage geht das leider nur sehr langsam - und bei rund 10 Abfragen bricht Excel meistens ab. Siehe auch Thread von heute Vormittag.
Anscheinend geht es aber auch mit einer Web Abfrage mit XML.
Ich hänge die Datei mal hier an.
Code der Funktion:
Public Function ArivaQuotes(Isin As String, Boerse As String) As Double
Dim KursString As String
Dim TextPos As Double
Dim XML
On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", "https://www.ariva.de/" & Isin & "/kurs", False
XML.send
KursString = XML.responsetext
KursString = Mid(KursString, InStr(KursString, "Handelsplatz"))
If Boerse = "BER" Then TextPos = InStr(KursString, "Berlin")
If Boerse = "DUS" Then TextPos = InStr(KursString, "sseldorf")
If Boerse = "ETR" Then TextPos = InStr(KursString, "Xetra")
If Boerse = "FRA" Then TextPos = InStr(KursString, "Frankfurt")
If Boerse = "LUS" Then TextPos = InStr(KursString, "L&S RT")
If Boerse = "HAM" Then TextPos = InStr(KursString, "Hamburg")
If Boerse = "MUN" Then TextPos = InStr(KursString, "nchen")
If Boerse = "STG" Then TextPos = InStr(KursString, "Stuttgart")
If Boerse = "TRG" Then TextPos = InStr(KursString, "Tradegate")
If Boerse = "QTX" Then TextPos = InStr(KursString, "Quotrix")
If Boerse = "KAG" Then TextPos = InStr(KursString, "Fondsgesellschaft")
If Boerse = "FRX" Then TextPos = InStr(KursString, "FXCM")
If Boerse = "FRZ" Then TextPos = InStr(KursString, "Frankfurt Zertifikate")
If Boerse = "DBR" Then TextPos = InStr(KursString, "DB Indikation Rohstoffe")
KursString = Mid(KursString, TextPos, InStr(KursString, "Geld- und Briefkurse"))
TextPos = InStr(KursString, "format=auto_blink2")
KursString = Mid(KursString, TextPos)
KursString = Mid(KursString, InStr(KursString, ">") + 1)
KursString = Left(KursString, InStr(KursString, "
Jetzt brauche ich aber nicht die Kurse sondern ein paar Daten mehr.
Wenn man z.B. https://www.ariva.de/deutsche_telekom-aktie aufruft bekommt man oben
direkt neben dem Namen 3 Felder: aktueller Kurs, Veränderung% und Veränderung absolut. Diese 3 Werte bräuchte ich.
Außerdem etwas weiter unten die Felder für die Veränderung in % für die 6 Zeitintervalle 1 Monat...
Weiß jemand wie man die Funktion dahingehend anpassen kann? Wahrscheinlich benötigt man für jedes Feld eine Funktion aber die Syntax wäre ja immer gleich - man muß nur wissen, wie man das Feld der Websit anspricht.
Kennt sich jemand damit aus und kann helfen?
Vielen Dank und noch einen gesunden Tag
Viele Grüße Lutz
P.S. den Tread von heute morgen schliesse ich dann mal - das scheint nicht der beste Weg zu sein.
https://www.herber.de/bbs/user/135975.xlsm