Warum Du das brauchst

Weil Excel zwar gut summieren kann, aber nicht vorhersagt, was morgen passiert.
Weil Du historische Daten hast – aber keine Lust auf Python oder R.

Mit Azure AutoML oder GPT-4 mit Tabellenverständnis kannst Du direkt aus Excel Zielwerte oder Trends prognostizieren lassen.
Per VBA.
Ohne Notebook.
Ohne Data-Scientist.

Zwei Varianten – zwei Philosophien

Ansatz	Vorteil	Nachteil
Azure AutoML	echtes Modell, gut bei größeren Mengen	Setup und Training nötig
GPT (OpenAI)	prompt-basiert, schnell & flexibel	Kein echtes Modell, keine Evaluation

---

Vorbereitung: Was braucht das Modell?

• Historische Zeitreihe: Datum + Wert
• Möglichst regelmäßige Intervalle
• Optional: Kategorien oder externe Einflussgrößen
• Ziel: Prognose X Tage in die Zukunft

---

Variante A: Vorhersage mit Azure AutoML

1. Daten aus Excel exportieren

Function ExportiereZeitreihe() As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Daten")

    Dim daten As String
    daten = "timestamp,value" & vbCrLf

    Dim i As Long
    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        daten = daten & ws.Cells(i, 1).Value & "," & ws.Cells(i, 2).Value & vbCrLf
    Next i

    ExportiereZeitreihe = daten
End Function

2. An Azure AutoML senden

Du brauchst:

• Azure ML Workspace
• REST-Endpoint eines trainierten Modells
• API-Key

Function AzureML_Predict(csvData As String) As String
    Dim http As Object
    Dim apiKey As String
    Dim endpoint As String

    apiKey = "DEIN_API_KEY"
    endpoint = "https://<region>.inference.ml.azure.com/score"

    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "POST", endpoint, False
    http.setRequestHeader "Authorization", "Bearer " & apiKey
    http.setRequestHeader "Content-Type", "text/csv"
    http.Send csvData

    AzureML_Predict = http.responseText
End Function

3. Ergebnis in Excel schreiben

Sub SchreibeVorhersage(result As String)
    ' JSON oder CSV je nach Modellstruktur parsen
    ' Beispielhaft als einfaches Insert:
    ThisWorkbook.Sheets("Prognose").Range("A1").Value = result
End Sub

---

Variante B: Prognose mit GPT (via Prompt)

1. Zeitreihe vorbereiten

Function LadeZeitreiheFürGPT() As String
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Daten")

    Dim i As Long
    Dim zeile As String
    For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
        zeile = zeile & ws.Cells(i, 1).Value & ": " & ws.Cells(i, 2).Value & vbCrLf
    Next i

    LadeZeitreiheFürGPT = zeile
End Function

2. GPT-Antwort per Forecast-Prompt

Function GPT_Zeitreihenanalyse(daten As String) As String
    Dim http As Object
    Dim json As String
    Dim apiKey As String

    apiKey = "DEIN_API_KEY"
    Dim prompt As String
    prompt = "Hier ist eine monatliche Zeitreihe. Bitte prognostiziere die nächsten 3 Werte. Gib nur die Zahlen zurück:" & vbCrLf & daten

    json = "{" & _
        """model"": ""gpt-4""," & _
        """messages"":[{""role"":""user"",""content"":""" & Replace(prompt, """", "\""") & """}]" & _
    "}"

    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "POST", "https://api.openai.com/v1/chat/completions", False
    http.setRequestHeader "Authorization", "Bearer " & apiKey
    http.setRequestHeader "Content-Type", "application/json"
    http.Send json

    GPT_Zeitreihenanalyse = ParseGPTAntwort(http.responseText)
End Function

Function ParseGPTAntwort(json As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    sc.AddCode "function parse(j){return JSON.parse(j).choices[0].message.content.trim();}"
    ParseGPTAntwort = sc.Run("parse", json)
End Function

---

Beispiel: Monatsumsätze

Monat	Umsatz (€)
2024-01	34.000
2024-02	36.200
2024-03	35.100
…	…
Prognose	GPT: 36.000 …

---

Was bringt Dir das?

Use Case	Nutzen
Umsatzplanung	Vorschau auf nächste Monate
Lagerbestand	Nachfrage antizipieren
Budget-Prognose	Liquiditätssteuerung
Personalbedarf	Tendenz erkennen

---

Was Du beachten musst

• Azure AutoML liefert präzisere, stabilere Ergebnisse bei großen Mengen
• GPT ist hilfreich für kleinere Serien, aber ohne Metriken
• Beide brauchen gut strukturierte Daten (regelmäßig, kein Rauschen)
• Prompting bei GPT ist empfindlich – keine wilden Fragen stellen

---

Erweiterungen

• Trendanalyse („nimmt der Wert zu, stagniert er?“)
• GPT mit visuellem Kontext (Excel-Tabellen-Upload in GPT-4 Turbo)
• Forecast-Werte in neues Sheet schreiben
• Bewertung der Prognosegüte (bei AutoML mit MAE, RMSE)

---

„Excel rechnet – aber AutoML denkt voraus.“

Wenn Du sowas brauchst – ich helf Dir, Excel fit für Zukunftsprognosen zu machen.
Ob mit Azure oder GPT: Deine Zeitreihe verdient mehr als nur eine Trendlinie.