Skulle behöva hjälp med ett makro som utför följande.

I kolumn H, från cell 3 och ett obestämt antal rader ner, finns en text som innehåller ordet xxx. Jag vill ersätta xxx med det värdet som finns i motsvarande rad i kolumn P.

Exempel:

Cell H3:   abc xxx 123  (xxx ska ersättas med med värdet i cell P3)

Cell H4:   abc xxx 123 (xxx ska ersättas med värdet i cell P4)

Osv fram till den sista cellen i kolumn H. Första cellen är alltid 3 i kolumnerna H och P

Tackar på förhand, Stefan P.

Är en fördel om det är ett makro eftersom arbetsboken(bladet skapas från en textfil med hjälp av ett antal makron.
Vet inte i förväg hur många rader som finns. Det enda som är bestämt är att första raden är nummer 3, rad 1 och 2 innehåller fasta värden.

>

Något i stil med nedan kanske fungerar.

Sub ReplaceXXX()

Dim LResult As String, XXX As String, YYY As String

Sheets("Sheet1").Select
Range("H3").Select

Do
XXX = ActiveCell
YYY = ActiveCell.Offset(0, 8).Range("A1")

LResult = Replace(XXX, "xxx", YYY)
ActiveCell.Offset(0, 9).Range("A1") = LResult
ActiveCell.Offset(1, 0).Range("A1").Select
Loop Until XXX = ""

End Sub

>

Tackar, fungerar kanon.  Bytte bara ut Offset(0,9) till (0,0) för att få det på rätt plats.