zoek en vervang met een lijst

[Jansap]

Hi Forum,

Ik heb een hele lijst velden die ik een voor een moet vervangen.
Dit wil ik graag met een macro doen. ctr H met het handje duurt een twee tal dagen.

probleem is dat de vervangende waardes niet alleen in een cel staan maar ook in een cel staan met andere teksten.

vb. PT12345N moet vervangen worden door PT123444 en staat in een veld alleen.
maar ook in een veld met een omschrijving vlv to tnk pt12345N.

Voorbeeld is bij gevoegd tab 1 met kolom A de tekst en kolom E de het ene veld.
De lijst zit in tab 2, simpel old kolom en new kolom.

Ik hoop dat er hulp is op dit forum om een klein stukje vba te schrijven die dit kan oplossen.
Bednakt voor hulp en support.

Jan

 

[edmoor]

Zoiets:

Sub VVCODE()
    Application.ScreenUpdating = False
    With Sheets("Sheet2")
        For i = 2 To .Cells(1).CurrentRegion.Rows.Count
            Sheets("Sheet1").Cells.Replace What:=.Cells(i, 1), Replacement:=.Cells(i, 2), LookAt:=xlPart, SearchOrder:=xlByRows
        Next i
    End With
    Application.ScreenUpdating = True
End Sub

 

[Haije]

probeer deze eens:

Sub vervang()
geg = Sheets("Sheet2").UsedRange
For v = 2 To UBound(geg)
    Cells.Replace What:=geg(v, 1), Replacement:=geg(v, 2), _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next v
End Sub

 

[Jansap]

zoek en vervang

Mannen dank je wel,

Dit is wat ik nodig heb.


Ga het verwerken in de grote file.