Hallo,
gibt es die Möglichkeit ein komplettes Excel-Blatt mit einem Makro / VBA zu übersetzen? Oder zu sagen, es soll ein bestimmter Bereich (Spalten/Zeilen) werden?
Ich habe bereits einen Code gefunden, wo ich mit einer Formel Zellen übersetzen kann. Dies ist sehr zeitaufwendig, wenn es ein großes Blatt ist. Kann mir jemand bitte bei meinem Problem helfen?
Der aktuelle Code:
.
Option Explizit
Funktion Translate $ (sText $, FromLanguage $, ToLanguage $)
Dim p1 &, p2 &, url $, resp $
Const DIV_RESULT $ = "<div class =" "Ergebniscontainer" ">"
Const URL_TEMPLATE $ = "https://translate.google.com/m?hl=[from‹&sl=[from‹&tl=[to‹&ie=UTF-8&prev=_m&q="
url = URL_TEMPLATE & WorksheetFunction.EncodeURL (sText)
url = Ersetzen (url, "[to]", ToLanguage)
url = Ersetzen (url, "[von]", FromLanguage)
resp = WorksheetFunction.WebService (url)
p1 = InStr (bzw. DIV_RESULT)
Wenn p1 dann
p1 = p1 + Len (DIV_RESULT)
p2 = InStr (p1 bzw. "</ div>")
Übersetzen = Mid $ (bzw. p1, p2 - p1)
End If
Endfunktion
Unterübersetzung ()
End Sub
Danke im Voraus für eure Hilfe!
gibt es die Möglichkeit ein komplettes Excel-Blatt mit einem Makro / VBA zu übersetzen? Oder zu sagen, es soll ein bestimmter Bereich (Spalten/Zeilen) werden?
Ich habe bereits einen Code gefunden, wo ich mit einer Formel Zellen übersetzen kann. Dies ist sehr zeitaufwendig, wenn es ein großes Blatt ist. Kann mir jemand bitte bei meinem Problem helfen?
Der aktuelle Code:
.
Option Explizit
Funktion Translate $ (sText $, FromLanguage $, ToLanguage $)
Dim p1 &, p2 &, url $, resp $
Const DIV_RESULT $ = "<div class =" "Ergebniscontainer" ">"
Const URL_TEMPLATE $ = "https://translate.google.com/m?hl=[from‹&sl=[from‹&tl=[to‹&ie=UTF-8&prev=_m&q="
url = URL_TEMPLATE & WorksheetFunction.EncodeURL (sText)
url = Ersetzen (url, "[to]", ToLanguage)
url = Ersetzen (url, "[von]", FromLanguage)
resp = WorksheetFunction.WebService (url)
p1 = InStr (bzw. DIV_RESULT)
Wenn p1 dann
p1 = p1 + Len (DIV_RESULT)
p2 = InStr (p1 bzw. "</ div>")
Übersetzen = Mid $ (bzw. p1, p2 - p1)
End If
Endfunktion
Unterübersetzung ()
End Sub
Danke im Voraus für eure Hilfe!