ChatGPT 4o vs. GPT-4-Turbo

Was ist der Unterschied – und warum fühlt sich 4o so viel besser an?

Mit der Veröffentlichung von ChatGPT 4o („Omni“) hat OpenAI Anfang April 2025 einen weiteren Schritt gemacht, der sich für viele Nutzerinnen und Nutzer direkt „spürbar“ auswirkt. Doch was steckt eigentlich hinter den beiden Modellen GPT-4-Turbo und GPT-4o?

Die wichtigsten Unterschiede im Überblick:

Mein Eindruck aus der Praxis

Gefühlt liefert ChatGPT 4o deutlich bessere Ergebnisse als GPT-4-Turbo über die API. Insbesondere im Umgang mit natürlichsprachlichen Fragen, komplexeren VBA- oder SQL-Problemstellungen und stilistisch saubereren Texten scheint 4o weiter zu sein – oder einfach besser auf menschliche Dialoge abgestimmt.

Während GPT-4-Turbo in API-Projekten oft korrekt, aber gelegentlich trocken oder repetitiv antwortet, wirkt 4o kreativer, klarer und kontextbewusster. Für den produktiven Einsatz in Access- oder Excel-Projekten ein echter Vorteil.

ChatGPT per VBA (Access, Excel, Word) ansprechen – Code 4.2025

Wer ChatGPT-Modelle direkt aus VBA ansprechen möchte, kann über die OpenAI-API gehen. Hier ein Beispiel, wie das mit XMLHttpRequest unter Verwendung des Modells gpt-4o funktioniert:

Sub CallChatGPT()
    Dim http As Object
    Dim url As String
    Dim apiKey As String
    Dim prompt As String
    Dim jsonRequest As String
    Dim jsonResponse As String

    ' API-Key und Endpoint
    apiKey = "sk-..."  ' <-- Hier deinen OpenAI-API-Key einfügen
    url = "https://api.openai.com/v1/chat/completions"

    ' Prompt-Text
    prompt = "Erkläre mir den Unterschied zwischen GPT-4-Turbo und GPT-4o in einfachen Worten."

    ' JSON Payload
    ' Vorerst noch Model = "gpt-4-turbo" !
    ' Beim Prompt auf Sonderzeichen aufpassen "[[]} usw.
    jsonRequest = _
        "{""model"":""gpt-4o""," & _
        """messages"":[{""role"":""user"",""content"":""" & prompt & """}]," & _
        """temperature"":0.7}"

    ' HTTP Request vorbereiten
    ' erfordert den Verweis auf "MSXML2.ServerXMLHTTP.6.0"
    Set http = CreateObject("MSXML2.XMLHTTP")
    With http
        .Open "POST", url, False
        ' Setze Timeout (Millisekunden)
        ' resolveTimeout (Namensauflösung),
        ' connectTimeout (Verbindung aufbauen),
        ' sendTimeout (Senden der Anfrage),
        ' receiveTimeout (Antwort empfangen – hier relevant!)
        objXML.setTimeouts 5000, 5000, 15000, 60000  
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Authorization", "Bearer " & apiKey
        .send jsonRequest

        If .Status = 200 Then
            jsonResponse = .responseText
            MsgBox jsonResponse  ' Zerlegung siehe JsonConverter
        Else
            MsgBox "Fehler: " & .Status & vbCrLf & .responseText
        End If
    End With
End Sub

Hinweis:

• Du brauchst einen eigenen OpenAI API-Key von https://platform.openai.com/account/api-keys
• Achte auf dein Kontingent und Kosten, je nach Modell und Token-Anzahl

Wer ChatGPT produktiv einsetzt – sei es zur Texterstellung, Codegenerierung oder im Dialog – sollte unbedingt einen Blick auf ChatGPT 4o werfen. Die neue Generation ist nicht nur schneller und günstiger, sondern auch spürbar besser in der Kommunikation.

Was machst Du anders? Wie sind Deine Erfahrungen?