Generierung von Produktbeschreibungen aus Stichwörtern in Zellen per GPT

Worum geht’s?

Du hast Produkte mit Stichwörtern in Excel.
Keine Beschreibung. Kein SEO. Kein Marketingtext.

Du willst aber:

• sinnvolle, vollständige Produktbeschreibungen
• aus 3–5 Stichworten
• in einheitlichem Ton
• automatisch erzeugt

Dann nimm GPT. Direkt aus Excel. Per VBA.

Was brauchst Du?

• Excel 2024 mit Makro-Unterstützung
• Einen OpenAI API-Key
• Eine Spalte mit Stichworten
• Eine freie Spalte für die Beschreibung

Beispielhafte Tabelle

GPT-Prompt-Vorlage

Erstelle eine präzise Produktbeschreibung in 2–3 Sätzen auf Basis dieser Stichworte: [Stichworte]. Die Sprache soll professionell und verkaufsfördernd sein. Keine Wiederholung der Stichworte, sondern echte Beschreibung.

Du kannst das anpassen – Tonalität, Länge, Stil.

GPT per VBA ansprechen

Function ProdukttextGPT(prompt As String) As String
    Dim http As Object
    Dim apiKey As String
    Dim result As String
    Dim json As String

    apiKey = "sk-..." ' Deinen GPT API-Key hier einfügen

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

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

    Dim startPos As Long, endPos As Long
    startPos = InStr(result, """content"":""") + 11
    endPos = InStr(startPos, result, """}")
    ProdukttextGPT = Mid(result, startPos, endPos - startPos)
End Function

Automatisiertes Generieren für eine Spalte

Sub BeschreibungenErzeugen()
    Dim zeile As Long
    Dim letzte As Long
    Dim text As String
    Dim prompt As String
    Dim beschreibung As String

    letzte = Cells(Rows.Count, 1).End(xlUp).Row

    For zeile = 2 To letzte
        text = Trim(Cells(zeile, 1).Value)
        If Len(text) > 0 Then
            prompt = "Erstelle eine präzise Produktbeschreibung in 2–3 Sätzen auf Basis dieser Stichworte: " & text & _
                     ". Die Sprache soll professionell und verkaufsfördernd sein."
            beschreibung = ProdukttextGPT(prompt)
            Cells(zeile, 2).Value = beschreibung
            DoEvents
            Application.Wait Now + TimeValue("0:00:01") ' Pause wegen Rate-Limit
        End If
    Next zeile

    MsgBox "Fertig."
End Sub

Tipps aus der Praxis

• Text vorher bereinigen: Keine Zeilenumbrüche, keine unnötigen Kommata
• Beschreibungen in mehreren Sprachen? → Prompt mit „auf Englisch“ ergänzen
• GPT liefert kreative Texte – lies gegen, bevor Du veröffentlichst
• Nutze temperature = 0.5, wenn Du konstantere Ergebnisse willst

Erweiterungsideen

• Länge per Prompt steuern („maximal 300 Zeichen“)
• Format als HTML oder Markdown ausgeben lassen
• Varianten pro Produkt erzeugen (A/B Testing)
• Kombination mit Artikelnummern und Preis

Wenn Du Produkttexte brauchst, aber keine Lust auf Schreibarbeit hast – dann lass GPT aus Stichwörtern fertige Texte zaubern, direkt aus Excel raus.