'Abruf von Börsenkursen über ARD-Börse:
'Nach dem Kopieren der Funktionen in ein VB-Modul einer Excel-Datei (Visual Basic Modul mit ALT-F11 öffnen), kann die Funktion in jede beliebige Zelle wie folgt eingetragen werden:
'=ardKurs(A2)
'Im Beispiel steht in Zelle A2 die ISIN des Wertpapiers.
'Kursaktualisierung mit STRG-ALT-F9.
'Eventuell in den Excel-Einstellungen im Excel Trust-Center die Makrosicherheitsstufe anpassen.
'
Public Function ardKurs(Isin As String) As Double
Dim Adresse As String
Dim Umleitung As String
Dim Kurs As String
Dim XML As Object
On Error GoTo Fehler
Adresse = "https://www.tagesschau.de/wirtschaft/boersenkurse/suche/?suchbegriff="

Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", Adresse & Isin, False
XML.send

Umleitung = XML.responsetext
Umleitung = Split(Umleitung, "onclick=""document.location='")(2)
Adresse = Left(Umleitung, InStr(Umleitung, "'") - 1)
XML.Open "GET", Adresse, False
XML.send

Kurs = XML.responsetext
Kurs = Split(Kurs, ">Kursdaten<")(1)
Kurs = Split(Kurs, ">Kurs<")(1)
Kurs = Split(Kurs, ">")(2)
If InStr(Kurs, "&") = 0 Then
    Kurs = Left(Kurs, InStr(Kurs, "<") - 2)
    Else
    Kurs = Left(Kurs, InStr(Kurs, "&") - 1)
End If
ardKurs = CDbl(Kurs)
Set XML = Nothing
Exit Function
Fehler:
    ardKurs = 0
    Set XML = Nothing
End Function