'Beispiel: in Zelle D3 steht das Symbol für die BASF-Aktie, Börse Xetra: BAS.DE, dann lautet die Formel für den 'Abruf des aktuellen Kurses: =yQuotes(D3;"L")
'und für den Vortageskurs: =yQuotes(D3;"P")
'("L" und "P" werden jetzt in Groß- und in Kleinschreibung akzeptiert, verbessert eventuell die Lesbarkeit)

Public Function yQuotes(Ticker As String, yCode As String) As Double
Dim KursString As String
Dim Suchstring As String
Dim XML

On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
    XML.Open "GET", "https://de.finance.yahoo.com/quote/" & Ticker & "?guccounter=1", False
XML.send
KursString = XML.responsetext
KursString = Mid(KursString, InStr(KursString, "react-text -->"))
If yCode = "l" Or yCode = "L" Then
    Suchstring = "data-reactid=" & """35""" & ">"
    KursString = Split(KursString, Suchstring)(2)
End If
If yCode = "p" Or yCode = "P" Then
    Suchstring = "data-reactid=" & """41""" & ">"
    KursString = Mid(KursString, (InStr(KursString, "Kurs Vortag")))
    KursString = Split(KursString, Suchstring)(1)
End If
KursString = Left(KursString, InStr(KursString, "<") - 1)
yQuotes = CDbl(KursString)

Set XML = Nothing
Exit Function
Fehler:
    yQuotes = 0
    Set XML = Nothing
End Function