Zoek en vervang

[jdg]

Wie kan mij een oplossing bieden voor een zoek/vervang probleem.
(ps mijn kennis van Excel is niet daverend)

Ik ben bezig om een excel-werkblad met een druk op de knop te vertalen in meerder talen.
Ik heb daarvoor een 2e werkblad waarin in een aantal kolommen de verschillende talen staan.
In de eerste kolom de Nederlandse omschrijvingen, de 2e kolom Engels, enz.

Nu moet met een druk op een taalkeuze knop alle tekst van het 1e werkblad vervangen worden door de tekst in de gekozen taal.

Alvast bedankt !

 

[wampier]

Er is geen voorbeeld dus ik kan het niet helemaal beoordelen, maar met een standaard lijst zou het ook met een indirect statement of een offset moeten kunnen. De talen kunnen dan in een validatie lijstje en bij het kiezen van een nieuwe taal zou alles moeten omschakelen.

Of die oplossing toepasbaar is is zo echter moeilijk te zeggen.

 

[jdg]

Hierbij een voorbeeld van een te vertalen sheet
Bekijk bijlage Vertaling.xlsx

 

[Niels28]

Alleen van Nederland naar engels of nederlands naar duits.

Bekijk bijlage Vertaling(1).xlsm

Niels

 

[jdg]

Graag vanuit nederlands naar alle talen

 

[Niels28]

Nou graag gedaan hoor.....
Je hebt er toch maar 2 talen instaan dus ik heb ze toch allemaal.

Niels

 

[jdg]

Klopt Niels, ik had niet goed gekeken.
Hartelijk bedankt.
Ik ga hier verder mee aan de slag

 

[jdg]

Ik heb nog een aanvullende vraag.

In de voorbeeldsheet staan meerdere kolommen die vertaald moeten worden.
Is hier ook nog een oplossing voor?


Alvast bedankt!

 

[Niels28]

Ja zo.

Private Sub CB_Engels_Click()
On Error Resume Next
With Sheets("blad1")
For Each cl In .Range("B5:D" & .Cells(Rows.Count, "b").End(xlUp).Row)
With Sheets("blad2").Range("A:A").SpecialCells(2)
Set vertaling = .Find(cl.Value)
cl.Value = vertaling.Offset(0, 1).Value
End With
Next
End With
End Sub

maar je moet je woorden wel hetzelfde maken als op het vertaal blad anders vind hij ze niet.
er staat een spatie achter het woord totaal in D5 en deze wordt dus niet mee vertaald omdat dit niet in de vertalings lijst voorkomt.

Niels

 

[jdg]

Hartelijk dank Niels !