Zoeken van bepaalde tekst in cel vanuit een lijst en vervangen

[Larslaurens]

Nog 1 laatste vraag.. als ik de namen van de tabbladen aanpas.. werkt ie meteen niet meer. Heb je nog een goede tip hiervoor?

 

[Larslaurens]

Als ik de tekst van de tabbladen aanpas werkt de VBa direct niet meer.. Hoe kan ik dit het beste doen. Laatste vraag.

 

[WHER]

lr2 = Worksheets("[COLOR="red"]Lijst[/COLOR]").Cells(Rows.Count, 1).End(xlUp).Row
For Each cl In Range("A1:A" & lr1)
  For Each cll In Worksheets("[COLOR="red"]Lijst[/COLOR]").Range("A1:A" & lr2)

De naam van het tabblad "Lijst" komt op 2 plaatsen voor in de code. Indien je dit tabblad een andere naam geeft, moet je deze naam op die 2 plaatsen in de code vervangen.

lr2 = Worksheets("[COLOR="red"]AndereNaam[/COLOR]").Cells(Rows.Count, 1).End(xlUp).Row
For Each cl In Range("A1:A" & lr1)
  For Each cll In Worksheets("[COLOR="red"]AndereNaam[/COLOR]").Range("A1:A" & lr2)

De naam van het tabblad "Teksten" komt niet voor in de code, die moet je dus normalerwijze niet aanpassen.

 

[Larslaurens]

Dit probeerde ik ook, ik veranderde "Lijst" door "Translations". Toen ik de code aanpaste bleeft het niet werken. Overiges zou ik de tweede tabblad graag willen veranderen naar: "kws to localise"

 

[Larslaurens]

Op 1 of andere manier blijft ie bij Antwerpen voordurend "en" er achter plakken als je op de knop drukt

 

[Larslaurens]

oja omdat ie natuurlijk "antwerp" leest..

 

[WHER]

Indien je de macro een tweede keer wil laten lopen, moet je uiteraard de originele teksten eerst terugzetten.
Ik heb ook de naam van tabblad "lijst" eens veranderd (en de code aangepast) en ik kan je probleem niet reproduceren?

 

[Larslaurens]

Ok ik zal het nog een keer proberen

 

[Larslaurens]

Ok opgelost ik veranderde de code voordat ik op de knop drukte, nu werkt ie wel prima. Thanks!