Google Übersetzer in Excel einbinden mit VBA
Schritt-für-Schritt-Anleitung
Um den Google Übersetzer in Excel über VBA zu nutzen, kannst du folgende Schritte befolgen:
-
Öffne Excel und aktiviere die Entwicklertools:
- Gehe zu "Datei" > "Optionen" > "Menüband anpassen" und aktiviere die Entwicklertools.
-
Erstelle ein neues Modul:
- Klicke auf "Entwicklertools" > "Visual Basic".
- Im VBA-Editor, klicke mit der rechten Maustaste auf "VBAProject (deinDateiname)" und wähle "Einfügen" > "Modul".
-
Füge den folgenden VBA-Code ein:
Public Function Uebersetzung(strQuelle As String, strZiel As String, strText As String) As String
Dim objIE As Object
Dim timeOut As Date
On Error Resume Next
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate "http://translate.google.com/?#" & strQuelle & "/" & strZiel & "/" & Replace(strText, " ", "%20")
timeOut = Now + TimeValue("00:00:05")
Do
Uebersetzung = objIE.Document.getElementById("result_box").innerText
If Now >= timeOut Then Exit Do
Loop While Uebersetzung = ""
objIE.Quit
Set objIE = Nothing
On Error GoTo 0
End Function
Sub Translate()
Dim i As Integer, anzRows As Integer
Dim strQuelle As String, strZiel As String, strText As String
anzRows = ActiveWorkbook.ActiveSheet.Range("A1").CurrentRegion.Rows.Count
strZiel = "EN" ' Zielsprache
strQuelle = "DE" ' Quellsprache
For i = 1 To anzRows
strText = ActiveWorkbook.ActiveSheet.Range("A" & i).Value
ActiveWorkbook.ActiveSheet.Range("B" & i) = Uebersetzung(strQuelle, strZiel, strText)
Next
End Sub
-
Schließe den VBA-Editor und kehre zu Excel zurück.
-
Gib deine Texte in Spalte A ein und führe das Makro "Translate" aus, um die Übersetzungen in Spalte B zu erhalten.
Häufige Fehler und Lösungen
-
Problem: excel google translate geht nicht
- Lösung: Stelle sicher, dass die Internetverbindung aktiv ist und der Google Übersetzer nicht blockiert wird.
-
Problem: google translate in excel funktioniert nicht
- Lösung: Überprüfe, ob der Code korrekt eingefügt wurde und ob alle benötigten Bibliotheken aktiviert sind.
-
Problem: excel googletranslate funktioniert nicht
- Lösung: Versuche, den Browser sichtbar zu machen, indem du
objIE.Visible = True im Code hinzufügst, um zu sehen, ob Fehler auftreten.
Alternative Methoden
Wenn die Anbindung des Google Übersetzers nicht funktioniert, kannst du auch die DeepL API verwenden. Hier ein Beispiel für den VBA-Code, um mit DeepL zu arbeiten:
Sub DeepLTranslate()
Dim http As Object
Dim response As String
Dim apiKey As String
Dim textToTranslate As String
apiKey = "DEIN_API_KEY"
textToTranslate = "Hallo Welt"
Set http = CreateObject("MSXML2.XMLHTTP")
http.Open "POST", "https://api.deepl.com/v2/translate", False
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
http.send "auth_key=" & apiKey & "&text=" & textToTranslate & "&target_lang=EN"
response = http.responseText
Debug.Print response
End Sub
Praktische Beispiele
-
Beispiel 1: Um einen deutschen Text in Englisch zu übersetzen, gib den Text in Zelle A1 ein und führe das Makro "Translate" aus. Die Übersetzung wird in Zelle B1 angezeigt.
-
Beispiel 2: Verwende die Funktion excel-text per formel übersetzen, indem du die Zellen A1 bis A10 mit deutschen Sätzen füllst und das Makro ausführen lässt, um sie automatisch zu übersetzen.
Tipps für Profis
-
Experimentiere mit der Änderung der Ziel- und Quellsprache in den Variablen strQuelle und strZiel, um unterschiedliche Übersetzungen zu erhalten (z.B. von EN nach DE).
-
Nutze die Fehlermeldungen des VBA-Editors, um eventuelle Probleme schnell zu beheben. Achte darauf, dass der Internet Explorer richtig konfiguriert ist, da der Code auf ihn zugreift.
FAQ: Häufige Fragen
1. Warum funktioniert die Google Translate-Funktion in Excel nicht?
Es kann an einer Blockade durch Google liegen oder daran, dass der Code nicht korrekt eingegeben wurde.
2. Gibt es eine Möglichkeit, Text automatisch zu übersetzen?
Ja, indem du das bereitgestellte Makro verwendest, kannst du ganze Spalten in Excel automatisch übersetzen.
3. Ist die Verwendung von DeepL besser als Google Translate?
Viele Benutzer berichten, dass die Übersetzungen von DeepL qualitativ hochwertiger sind. Du kannst die API verwenden, um DeepL in Excel zu integrieren.