VBA Excel Begriffe übersetzen FR / EN

Hallo liebe Community,
Ich stehe vor folgendem Problem und brauche mal wieder eure Hilfestellung.
Eine Liste mit 1200 Begriffen (manchmal nur ein Wort, aber meistens 2 Wörter) soll aus dem Französischen ins Englische grob Übersetzt werden.
https://www.herber.de/bbs/user/122735.xlsx
In Spalte D stehen die französischen Begriffe und in Spalte E das englische Pendant. Ich benutze dazu Google Translate, weil das in den meisten Fällen ziemlich genau die richtige Übersetzung trifft. Mache das per Copy&Paste, was jedoch enorm viel Zeit in Anspruch nimmt, bzw. sehr mühselig ist.

https://translate.google.de/m/translate?hl=de#fr/en/

Kann ich so eine Abfrage / Übersetzung irgendwie in ein Makro bringen, dass er die Zeilen automatisch abklappert und die Begriffe automatisch übersetzt und in Excel einfügt?
Ich habe schon ein wenig Erfahrung mit VBA sammeln können in den letzten 2 Jahren, aber alles nur "learning by doing". Eventuell gibt es ein Modul, dass durch das man die Begriffe jagen könnte?
Habe schon das WWW nach eine Lösung für dieses Problem durchforstet, bin jedoch leider nicht ansatzweise fündig geworden.
Bin für jede Hilfe oder Hinweis dankbar. :-)
Grüße
Nik

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Uebersetzung_google() On Error Resume Next Dim IEApp As Object Dim IEDocument As Object Dim strErgebnis As String Set IEApp = CreateObject("InternetExplorer.Application") For i = 2 To Sheets(1).UsedRange.Rows.Count erneut: IEApp.Visible = False IEApp.Navigate "http://translate.google.de/?hl=de&tab=wT#fr|en|" & Sheets(1).Cells(i, 1) Application.StatusBar = "Übersetze-> " & Sheets(1).Cells(i, 1).Value Do: Loop Until IEApp.Busy = False Do: Loop Until IEApp.Busy = False Set IEDocument = IEApp.Document Do: Loop Until IEDocument.ReadyState = "complete" strErgebnis = IEDocument.getElementById("result_box").innerText Set IEDocument = Nothing If strErgebnis = "" Then GoTo erneut Sheets(1).Cells(i, 2) = strErgebnis IEApp.Navigate "http://translate.google.de" strErgebnis = "" Next IEApp.Quit Set IEApp = Nothing Application.StatusBar = False MsgBox "Fertig" End Sub

Guten Morgen,
für mich ist das soweit klar und hilft mir ungemein.
Und ja, so lange der IE benötigt um die Übersetzung auszuspucken, so lange dauert es auch bis er zum nächsten Begriff springt. Das hängt u.a. auch an deiner Internetverbindung, etc.
Ist diese Zeile hier -->


Do: Loop Until IEApp.Busy = False

Und das ist m.E. nach auch die schnellste Methode, denn er wartet so lange bis der IE eben nicht mehr beschäftigt ist. Bei alten Windows Version war es ähnlich, sprich dass der Mauszeiger sich in eine Sanduhr verwandelte, solange WIN am arbeiten war. Das ist vom Prinzip vergleichbar.
Der IE muss dazu jedenfalls nicht geöffnet sein. Der läuft im Hintergrund.
Man könnte das ganze eventuell noch beschleunigen, wenn man das Screenupdateing und / oder Kalkulation zu beginn des Makros ausschaltet. Aber Vorsicht: Am Ende des Makros unbedingt wieder einschalten (!).
Der Code zum Ausschalten:

    Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Und zum Einschalten:

    Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

@Torsten
Ich weiss nicht wieviele Wörter bzw Zeilen du durchlaufen lässt. Bei mir braucht er für jeden Begriff so um die 2 - 3 Sekunden maximal. Das summiert sich dann schon bei einigen Begriffen. Aber ob er was macht siehst du ja anhand dessen, dass er immer wieder Übersetzung in deine Zielzelle einträgt.
Was aber auch sein kann ist, dass du ganz viele Zellen mit Leerzeichen in deinem Sheet hast. _ Die rattert er dann auch durch. Da er ja mit dem Code


"For i = 2 To Sheets(1).UsedRange.Rows.Count"

zählt wie viele Zellen benutzt sind. Das gilt auch für Zellen mit einem Leerzeichen, soweit ich weiß.
Hoffe das hilft und ich habe keinen Müll erzählt.
LG, Nik

Beliebteste Forumthreads (12 Monate)

VBA Excel Begriffe übersetzen FR / EN

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Excel Begriffe übersetzen FR / EN

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread