In meinem neuen Video zeige ich dir, wie du ChatGPT nahtlos in Microsoft Excel integrieren kannst – eine Technologie, die besonders für Mitarbeiter im Tourismus von großem Nutzen sein wird. Diese innovative Methode ermöglicht es dir, eine Vielzahl von alltäglichen Aufgaben in deinem Arbeitsablauf deutlich effizienter zu gestalten.

Stell dir vor, du könntest innerhalb weniger Minuten Hunderte von englischen Gästebewertungen ins Deutsche übersetzen. Oder wie wäre es, wenn du mit einem Klick die Stimmung in den Kommentaren deiner internationalen Gäste analysieren könntest? Genau das wird mit dieser Integration möglich. Du gibst einfach deinen gewünschten Prompt direkt in Excel ein und bestimmst die Zellen, auf die dieser angewendet werden soll. So verwandelst du dein vertrautes Tabellenkalkulationsprogramm in ein leistungsstarkes Tool für unzählige Aufgabenstellungen.

Im Video führe ich dich Schritt für Schritt durch den Prozess der Integration und zeige dir, wie du die notwendigen Einstellungen vornimmst. Du wirst sehen, wie einfach es ist, diese fortschrittliche Technologie in dein tägliches Arbeitswerkzeug einzubinden. Ob du nun in einem kleinen Boutique-Hotel arbeitest, im Destinationsmanagement oder Teil eines großen Reiseunternehmens bist – diese Methode wird dir helfen, deine Datenverarbeitung und Kundeninteraktion auf ein neues Level zu heben.

Hier der Code für das Modul:

-----------------------

Option Explicit

Public Function ChatGPT(cell As Range, prompt As String) As String

On Error GoTo ErrorHandler

Dim apiKey As String

apiKey = "YOUR_API_KEY_HERE" ' Ersetzen Sie dies durch Ihren API-Schlüssel

Dim http As Object

Set http = CreateObject("MSXML2.XMLHTTP")

Dim url As String

url = "https://api.openai.com/v1/chat/completions"

Dim requestBody As String

requestBody = "{""model"":""gpt-3.5-turbo"", ""messages"":[{""role"":""user"", ""content"":""" & prompt & " " & cell.Value & """}], ""max_tokens"":100}"

With http

.Open "POST", url, False

.setRequestHeader "Content-Type", "application/json"

.setRequestHeader "Authorization", "Bearer " & apiKey

.send requestBody

End With

Dim response As String

response = http.responseText

' Debug-Ausgabe

Debug.Print response

' JSON-Antwort parsen

Dim json As Object

Set json = JsonConverter.ParseJson(response)

If Not json Is Nothing Then

ChatGPT = json("choices")(1)("message")("content")

Else

ChatGPT = "Fehler bei der API-Antwort."

End If

Exit Function

ErrorHandler:

ChatGPT = "Fehler: " & Err.Description

End Function

---------------------------------------

Hier das JSONConverter.bas file zum Download: https://www.dropbox.com/scl/fi/sp0b7fbpmm2h3xwiuuz42/JsonConverter.bas?rlkey=3qewesd1piw9nmh6dms0smv2y&dl=0