Warum Stimmungsanalyse?

Weil Du wissen willst, was die Kunden wirklich sagen.
Nicht jede Kritik ist ein „Reklamationsgrund“.
Nicht jedes Lob ein „Kaufimpuls“.
Aber die Richtung – positiv, neutral, negativ – lässt sich automatisiert rausfiltern.

Mit KI. Und Access als Oberfläche.

Ich zeig Dir, wie Du Kundenfeedback automatisch analysierst – direkt in Deiner Access-Anwendung.

Was Du brauchst

• Microsoft Access
• OpenAI API-Key (GPT) oder Hugging Face Sentiment-Modell
• Tabellen für Feedback, Ergebnisse, Fehler
• Etwas VBA und JSON-Kleber

Tabellenstruktur

Beispiel-Eintrag

GPT versteht das. Und sagt Dir:
Mixed → Tendenz: negativ

Variante A: GPT für Sentiment

VBA-Funktion für Analyse

Function AnalyseStimmungGPT(text As String) As String
    Dim http As Object
    Dim prompt As String
    Dim apiKey As String
    Dim json As String

    apiKey = "DEIN_API_KEY"

    prompt = "Analysiere folgenden Kundentext: """ & text & """." & _
             " Gib nur eine Antwort als JSON mit Feldern ""stimmung"" und ""score""." & _
             " Stimmung = positiv / neutral / negativ. Score = Zahl von -1 bis 1."

    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

    AnalyseStimmungGPT = http.responseText
End Function

JSON-Ausgabe extrahieren

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

Du bekommst dann z. B.:

{
  "stimmung": "negativ",
  "score": -0.6
}

In Access speichern

Sub SpeichereStimmung(feedbackID As Long, stimmung As String, score As Double)
    CurrentDb.Execute "INSERT INTO tblAnalyse (FeedbackID, Stimmung, Score, Zeitstempel) VALUES (" & _
                      feedbackID & ", '" & stimmung & "', " & Replace(score, ",", ".") & ", Now())"
End Sub

Variante B: Hugging Face Modell

Falls Du lieber was Fixes nutzt:
Modell distilbert-base-uncased-finetuned-sst-2-english

API-Aufruf:

Function AnalyseStimmungHF(text As String) As String
    Dim http As Object
    Dim token As String
    Dim json As String

    token = "DEIN_HUGGINGFACE_TOKEN"

    json = "{""inputs"":""" & Replace(text, """", "\""") & """}"

    Set http = CreateObject("MSXML2.ServerXMLHTTP")
    http.Open "POST", "https://api-inference.huggingface.co/models/distilbert-base-uncased-finetuned-sst-2-english", False
    http.setRequestHeader "Authorization", "Bearer " & token
    http.setRequestHeader "Content-Type", "application/json"
    http.Send json

    AnalyseStimmungHF = http.responseText
End Function

Beispielantwort:

[ { "label": "NEGATIVE", "score": 0.95 } ]

Kannst Du dann ähnlich verarbeiten wie bei GPT.

Feedback durchklicken im Formular

Private Sub btnAnalysieren_Click()
    Dim id As Long
    Dim text As String
    Dim json As String
    Dim stimmung As String
    Dim score As Double

    id = Me.txtFeedbackID
    text = Me.txtFeedback

    json = AnalyseStimmungGPT(text)
    stimmung = ParseGPTFeld(json, "stimmung")
    score = CDbl(ParseGPTFeld(json, "score"))

    Call SpeichereStimmung(id, stimmung, score)
    Me.txtStimmung = stimmung
    Me.txtScore = score
End Sub

Feld extrahieren aus JSON

Function ParseGPTFeld(jsonText As String, feld As String) As String
    Dim sc As Object
    Set sc = CreateObject("ScriptControl")
    sc.Language = "JScript"
    sc.AddCode "function val(j,f){return JSON.parse(j).choices[0].message.content.match(new RegExp('""" & feld & """:\\s*[""\\-\\d\\.a-zA-Z]+'))[0].split(':')[1].trim().replace(/^[""']|[""']$/g, '');}"
    ParseGPTFeld = sc.Run("val", jsonText, feld)
End Function

Was Du analysieren kannst

• Offene Kundenkommentare aus Tickets
• Google-Bewertungen
• Texte aus Webformularen
• E-Mail-Auszüge aus Outlook → per VBA importierbar

Was sinnvoll ist

Was Du beachten musst

• GPT: Ergebnis hängt vom Prompt ab – gern mal testen
• Keine personenbezogenen Daten direkt senden
• Langfristig: lokal mit fine-tuned Modell besser skalierbar
• API-Limits prüfen (Token bei GPT, Volumen bei HF)

„Access hat keine Meinung – aber er kennt jetzt die vom Kunden.“

Wenn Du Kundenstimmen auswerten willst:
Ich helf Dir beim Aufsetzen.
Ohne Marketing-Magie. Aber mit Wirkung.