'Abruf von Börsenkursen über ARD-Börse:
'Nach dem Kopieren der Funktionen in ein Modul einer Excel-Datei, kann die Funktion in jede beliebige Zelle wie folgt eingetragen werden:
'=ardKurs(A2;"ETR")
'Die Funktion benötigt zwei Parameter: ISIN und Börsenplatz. Im Beispiel steht in Zelle A2 die ISIN des Wertpapiers, Parameter 2 gibt den Börsenplatz an.
'Gültige Börsenplätze sind: BER, DUS, ETR, FRA, HAM, MUN, STG, KAG (Kurs der Fondsgesellschaft), XTF (ETF über Xetra), TRG (Tradegate) und FRX (Forex).

Public Function ardKurs(Isin As String, Boerse As String) As Double
Dim Adresse As String
Dim KursString As String
Dim Separator As String
Dim XML
On Error GoTo Fehler
Adresse = "https://kurse.boerse.ard.de/ard/kurse_einzelkurs_suche.htn?suchbegriff="

'Forex-Anpassung
If Boerse = "FRX" Then Adresse = "https://kurse.boerse.ard.de/ard/kurse_einzelkurs_uebersicht.htn?i="
If Isin = "EU0009654078" Then Isin = "2079544" 'CHF
If Isin = "EU0009652759" Then Isin = "2079559" 'USD
If Isin = "EU0001458304" Then Isin = "2079546" 'Renminbi

Set XML = CreateObject("MSXML2.ServerXMLHTTP")
XML.Open "GET", Adresse & Isin, False
XML.send
KursString = XML.responsetext
KursString = Mid(KursString, InStr(KursString, "Börsenplätze"))

If Boerse = "BER" Then Separator = "Berlin"
If Boerse = "DUS" Then Separator = "sseldorf"
If Boerse = "ETR" Then Separator = "Xetra"
If Boerse = "FRA" Then Separator = "Frankfurt"
If Boerse = "HAM" Then Separator = "Hamburg"
If Boerse = "MUN" Then Separator = "nchen"
If Boerse = "STG" Then Separator = "Stuttgart"
If Boerse = "KAG" Then Separator = "Fondsg"
If Boerse = "XTF" Then seperator = "Xetra ETF"
If Boerse = "TRG" Then Separator = "Tradegate"
If Boerse = "FRX" Then Separator = "Forex"

KursString = Split(KursString, Separator)(1)
KursString = Split(KursString, "/>")(1)
KursString = Left(KursString, InStr(KursString, "&") - 1)
ardKurs = CDbl(KursString)
Set XML = Nothing
Exit Function
Fehler:
    ardKurs = 0
    Set XML = Nothing
End Function