'Abruf von Börsenkursen über Yahoo Finance:

'Nach dem Kopieren der Funktionen in ein Modul einer Excel-Datei, kann die Funktion in jede beliebige Zelle wie folgt eingetragen werden:
'=yQuotes(A2;"p")
'Die Funktion benötigt zwei Parameter: Tickersymbol und den Kurszusatzcode. Im Beispiel steht in Zelle A2 das Tickersymbol des Wertpapiers.
'Parameter 2 ist der Code für die Art des Ausgabewertes (letzter Kurs, bzw. Vortagesschlusskurs).
'Gültige Codes sind: "l" (letzter Kurs) und "p" (Vortagesschlusskurs).

Public Function yQuotes(Ticker As String, yCode As String) As Double
Dim TextRueckgabeString As String
Dim SuchTextPosition As Double
Dim XML

On Error GoTo Fehler
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
    XML.Open "GET", "https://de.finance.yahoo.com/quote/" & Ticker, False
XML.send
TextRueckgabeString = XML.responsetext
Select Case yCode
    Case "l"
        TextRueckgabeString = Split(TextRueckgabeString, "react-text: 36")(2)
    Case "p"
        TextRueckgabeString = Split(TextRueckgabeString, "Kurs Vortag")(1)
        TextRueckgabeString = Split(TextRueckgabeString, "react-text: 42")(1)
    Case Else
        GoTo Fehler
End Select
SuchTextPosition = InStr(TextRueckgabeString, ">") + 1
TextRueckgabeString = Mid(TextRueckgabeString, SuchTextPosition)
SuchTextPosition = InStr(TextRueckgabeString, "<") - 1
TextRueckgabeString = Left(TextRueckgabeString, SuchTextPosition)
yQuotes = CDbl(TextRueckgabeString)

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