Quelle: https://www.wertpapier-forum.de/topic/66786-finance-api-gesucht/ Public Function yFin(Ticker As String, myKey As String) As Variant    Dim strResponse As String    Dim Laege As Long    Dim XML As Object        On Error GoTo Fehler    Set XML = CreateObject(„MSXML2.ServerXMLHTTP“)    XML.Open „GET“, „https://query1.finance.yahoo.com/v6/finance/options/“ & Ticker, False    XML.send    myKey = myKey + „““:“    strResponse […]