'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 Kurs As String Dim XML 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 Kurs = XML.responsetext Kurs = Split(Kurs, "icon_")(1) Kurs = Split(Kurs, ">")(1) Kurs = Left(Kurs, InStr(Kurs, "<") - 1) ardKurs = CDbl(Kurs) Set XML = Nothing Exit Function Fehler: ardKurs = 0 Set XML = Nothing End Function