Dim Kursdatum As Date
Dim UnixDatum As String
Dim Kommazaehler As Integer
Dim AdjustedClose As Boolean
Dim XML As Object
On Error GoTo Fehler
AdjustedClose = False
If ZeitRaum = "0" Then Kursdatum = Date
If ZeitRaum = "YTD" Then Kursdatum = DateValue("31.12." & Year(Date) - 1)
If ZeitRaum = "1M" Then Kursdatum = DateAdd("m", -1, Date)
If ZeitRaum = "3M" Then Kursdatum = DateAdd("m", -3, Date)
If ZeitRaum = "6M" Then Kursdatum = DateAdd("m", -6, Date)
If ZeitRaum = "12M" Then Kursdatum = DateAdd("m", -12, Date)
If ZeitRaum = "1Y" Then Kursdatum = DateAdd("yyyy", -1, Date)
If ZeitRaum = "3Y" Then Kursdatum = DateAdd("yyyy", -3, Date)
If ZeitRaum = "5Y" Then Kursdatum = DateAdd("yyyy", -5, Date)
If ZeitRaum = "10Y" Then Kursdatum = DateAdd("yyyy", -10, Date)
UnixDatum = Kursdatum - UnixStartDatum
UnixDatum = (UnixDatum * 86400) + 86400
QuoteURL = "https://query1.finance.yahoo.com/v7/finance/download/" & Ticker & "?period1=" & UnixDatum - 1036800 & "&period2=" & UnixDatum & "&interval=1d&events=history&includeAdjustedClose=true"
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
    XML.Open "GET", QuoteURL, False
XML.send
Kurs = XML.responseText
Kommazaehler = Len(Kurs) - Len(Replace(Kurs, ",", ""))
While (Split(Kurs, ",")(Kommazaehler - 1) = "null")
    Kommazaehler = Kommazaehler - 6
Wend
If AdjustedClose = True Then Kurs = Split(Kurs, ",")(Kommazaehler - 1) Else Kurs = Split(Kurs, ",")(Kommazaehler - 2)
Kurs = Replace(Kurs, ".", ",")
HistoKurs = CDbl(Kurs)
Kursdatum = Date
UnixDatum = Kursdatum - UnixStartDatum
UnixDatum = (UnixDatum * 86400) + 86400
QuoteURL = "https://query1.finance.yahoo.com/v7/finance/download/" & Ticker & "?period1=" & UnixDatum - 1036800 & "&period2=" & UnixDatum & "&interval=1d&events=history&includeAdjustedClose=true"
Set XML = CreateObject("MSXML2.ServerXMLHTTP")
    XML.Open "GET", QuoteURL, False
XML.send
Kurs = XML.responseText
Kommazaehler = Len(Kurs) - Len(Replace(Kurs, ",", ""))
While (Split(Kurs, ",")(Kommazaehler - 1) = "null")
    Kommazaehler = Kommazaehler - 6
Wend
If AdjustedClose = True Then Kurs = Split(Kurs, ",")(Kommazaehler - 1) Else Kurs = Split(Kurs, ",")(Kommazaehler - 2)
Kurs = Replace(Kurs, ".", ",")
KursHeute = CDbl(Kurs)
Yproz = (KursHeute / HistoKurs) - 100 / 100
Set XML = Nothing
Exit Function
Fehler:
    HistoKurs = 0
    KursHeute = 0
    Yproz = 0
    Set XML = Nothing
End Function