Find tekst i kolonne - slet den - og indsætte "noget andet tekst" i cellen til venstre...

Det der søges på er kun en del af tekststrengen!

Send en eks.fil

altså, hvis der står 'kurt' i d2, og b2 indeholder '2.kurt' så skal d2 være tom, og c2 skal skrive 'ny tekst'.

Hvis den her boks nu var lavet som et excel ark, så ville tingene være lidt lettere at forklare :) Osse for dem der ingen email har i deres profil... (claes57)

jeg arbejder her ud fra, at det skal løses i forum. Ellers kan folk jo bare maile og betale til mit firma ;)

koden virker på layout i filen du sendte, men det stemmer ikke helt med dit første indlæg

Sub Opdel()
For Each C In Range("A2:A7")
If Left(C, 2) = 2 Then ' Or Left(C, 2) = 3 Then
x = C.Offset(0, 3).Value
y = C.Offset(0, 2).Value
If InStr(1, Trim(x), " ") = 0 Then y = y & " " & x Else y = y & " " & Left(x, InStr(1, x, " "))
C.Offset(0, 2).Value = y
C.Offset(0, 3).Value = Replace(C.Offset(0, 3).Value, C.Offset(0, 2).Value, "")
End If
Next
End Sub

Takker mange igen igen... :) Smid et svar!

velbekom