VBA Übersetzung von bestimmten Zeilen und Spalten

[moritz210]

Hallo liebes Forum,
ich bin absolute VBA Anfängerin und benötige bitte ihre Hilfe!
Ich habe mithilfe von VBA eine Funktion für die Übersetzung von Zellen erstellt, welche auch funktioniert. Ich brauche die Übersetzung allerdings für bestimmte Zeilen und Spalten (welche varrieren). Ist es möglich anzugeben wann der Start einer Zeile / Spalte ist und wann ihr Ende? Ich bin über jede Hilfe sehr dankbar.
Unten sehen sie meine erstellte Funktion:
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!

 

[Marc L]

Translate words using other sheet.

Good day. Looking for a help, I want to translate all the words on sheet1 base on the sheet2 that I create. on "Sheet 1" there's sample words. that I want to be translated. I have a button on "sheet 1" when you click the button it will translate all the words on "Sheet 1" Base on the words I...

www.excelforum.com