zoeken en 1 cel hoger tekst plaatsen

[DannyGeysen]

Hoi,

Ik zoek iets in de zin van:

zoek in kolom A naar de tekst 'Label=-20ft'
en zet dan 1 cel hoger volgende tekst 'Type=0x52'
en dit herhalen voor heel de kolom A

Bedankt.

 

[Wigi]

Sub ddd()

    Dim l As Long
    
    For l = 2 To Range("A" & Rows.Count).End(xlUp).Row
    
        If Range("A" & l).Value = "Label=-20ft" Then
            
            Range("A" & l - 1).Value = "Type=0x52"
            
        End If
    
    Next

End Sub

Wigi

 

[DannyGeysen]

Hartelijk dank, net wat ik zocht.
Danny Geysen

 

[Roncancio]

Hartelijk dank, net wat ik zocht.
Danny Geysen

Gaarne de vraag op opgelost zetten.
Bvd.

Met vriendelijke groet,


Roncancio