'Beispiel: In Zelle A1 muss eine ISIN stehen, dann lautet die Formel =fwKAGkurs(A1) Public Function fwKAGkurs(ISIN As String) As Double Dim KursString As String Dim XML On Error GoTo Fehler Set XML = CreateObject("MSXML2.ServerXMLHTTP") XML.Open "GET", "https://www.fondsweb.com/de/" & ISIN, False XML.send KursString = XML.responsetext KursString = Mid(KursString, InStr(KursString, "fw--fondDetail-price") + 26) KursString = Left(KursString, InStr(KursString, "&") - 1) fwKAGkurs = CDbl(KursString) Set XML = Nothing Exit Function Fehler: fwKAGkurs = 0 Set XML = Nothing End Function