Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Zugriff auf deepl mit Übersetzung
21.08.2023 15:40:44 Jev
Solved
22.08.2023 07:23:57 Zwenn
NotSolved
22.08.2023 09:57:20 Jev
NotSolved
22.08.2023 12:20:50 Zwenn
NotSolved
22.08.2023 13:17:38 Jev
NotSolved
22.08.2023 14:20:11 Zwenn
NotSolved
22.08.2023 16:18:04 Jev
NotSolved
23.08.2023 18:42:33 Zwenn
NotSolved

Ansicht des Beitrags:
Von:
Jev
Datum:
21.08.2023 15:40:44
Views:
429
Rating: Antwort:
 Nein
Thema:
Excel VBA Zugriff auf deepl mit Übersetzung

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Zugriff auf deepl mit Übersetzung
21.08.2023 15:40:44 Jev
Solved
22.08.2023 07:23:57 Zwenn
NotSolved
22.08.2023 09:57:20 Jev
NotSolved
22.08.2023 12:20:50 Zwenn
NotSolved
22.08.2023 13:17:38 Jev
NotSolved
22.08.2023 14:20:11 Zwenn
NotSolved
22.08.2023 16:18:04 Jev
NotSolved
23.08.2023 18:42:33 Zwenn
NotSolved