|
Hallo zusammen,
ich möchte gerne meine Excel Tabelle automatisch ins englische übersetzen.
Ich komme zu dem Punkt, dass ich Microsoft Edge áufrufen und zu deepl navigieren kann.
Der zu übersezende Text wird via VBA ebenfalls in deepl eingegeben.
Leider kann ich aber nicht den übersetzten Text wieder in Excel einfügen.
Warum kriege ich den englischen Text nicht in die Excel Tabelle importiert.
Fehlermeldungen kriege ich auch keine.
Hier der Code:
Sub TextUebersetzung()
Dim lngZeile As Long
Dim lngZeileMax As Long
With tbl_Übersetzung
lngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For lngZeile = 2 To lngZeileMax
.Range("B" & lngZeile).Value = Uebersetzung("de", "en", .Range("A" & lngZeile).Value)
Next lngZeile
End With
End Sub
Public Function Uebersetzung(strQuelle As String, _
strZiel As String, strText As String) As String
Dim objIE As Object
Dim Timeout As Date
Dim Test As String
On Error Resume Next
Text = "https://www.deepl.com/de/translator/?#" & _
strQuelle & "/" & _
strZiel & "/" & _
Replace(strText, " ", "%20")
Set objIE = CreateObject("Shell.Application").ShellExecute(Text)
Timeout = Now + TimeValue("00:00:20")
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
Vielen Dank und viele Grüße
|