Opgelost Vertaal_Engels_naar_Nederlands

[SUVERMO]

Goedenavond forumexperten

Is het mogelijk om met een macro te plakken in linkerdeel van google translate en uit rechterdeel van google translate vertaling te kopiëren door te drukken op het icoontje?

Welke code moet er toegevoegd worden in de bestaande macro ”Vertaal_Engels_naar_Nederlands”

 

[popipipo]

Volgens mij is excel een spreadsheet programma en geen vertaal programma

 

[JEC.]

Met een UDF:

PS: nog even wachten en de functie "TRANSLATE" zit standaard in Excel gebakken

Function Translate(s As String) As String
Translate = Split(Split(Application.WebService("https://translate.google.com/m?hl=en&sl=en&tl=nl&ie=UTF-8&prev=_m&q=" & Application.EncodeURL(s)), "<div class=""result-container"">")(1), "<")(0)
End Function

 

[peter59]

@JEC.
Volgens mij is deze vertaler alleen voor functies te vertalen.
Of heb ik het mis?

 

[JEC.]

Ja dat is een functievertaler maar er komt ook een vertaler voor tekst in de vorm van een standaard functie

 

[SUVERMO]

bedankt JEC
ik zal even wachten tot de functie "TRANSLATE" standaard in Excel zit gebakken

 

[JEC.]

Dat duurt nog wel even hoor
Ik zou deze UDF gebruiken. Je kunt dit ook gebruiken als standaard functie in Excel btw (office 365) maar dat maakt je bestand traag. Daarom beter te gebruiken als UDF binnen je procedure.

=TEXTBEFORE(TEXTAFTER(WEBSERVICE("https://translate.google.com/m?hl=en&sl=en&tl=nl&ie=UTF-8&prev=_m&q=" & ENCODEURL(A1));"<div class=""result-container"">");"<")

 

[peter59]

@JEC.
Ik heb deze functie gevonden.
Deze was mij nog niet bekend. Weer iets geleerd.

=VERTALEN(A1;"nl";"da")

PS of "insider" worden.

 

[JEC.]

Ja zit je in beta versie? Ja dus. Daar is hij inderdaad al beschikbaar maar het duurt altijd belachelijk lang voordat het live wordt gezet.

 

[peter59]

Yep.

 

[popipipo]

ik neem mijn worden terug

 

[mvdvlist]

Het wordt steeds leuker.

 

[SUVERMO]

Excel wordt inderdaad steeds leuker.

Ondertussen aangemeld als Microsoft 365 Insider en geregistreerd voor Bèta-kanaal

 

[JEC.]

Weet wel dat de insider versie niet wordt ondersteund door microsoft. Er kunnen bugs of andere eigenaardigheden in zitten.

 

[peter59]

@JEC.
Klopt, maar daarvoor is het ook een béta-versie.
Eventuele "eigenaardigheden" kan men doorgeven aan MS.
Daardoor duurt het ook lang voordat deze ook ter beschikking komen voor de andere MS 365 gebruikers.

 

[JEC.]

Het zijn niet alleen dingen mbt de nieuwe functies. Ook andere bugs kunnen zich voordoen door tests vanuit ms