zoek/vervang met variabelen uit tabel

[mariannevanh]

Ik heb een Excel-bestand (zie voorbeeld in blad 2). Daarin wil ik diverse gegevens wijzigen, waarvan de te zoeken de te vervangen tekst in blad 1 staan. Nadat de zoek/vervang van de eerste regel is uitgevoerd, dient de tweede regel te worden uitgevoerd.
Hoe pak ik dit het meest eenvoudig aan?

Vriendelijke groet,
Guido

 

[edmoor]

In Blad2 staat geen enkel te vinden gegeven zoals in kolom A van Blad1.

Maar het komt hier op neer:

For Each cl In Sheets("Blad1").Range("A:A").SpecialCells(xlCellTypeConstants)
    Sheets("Blad2").Cells.Replace What:=cl.Value, Replacement:=cl.Offset(, 1).Value, LookAt:=xlWhole, SearchOrder:=xlByColumns
Next cl