Aanpassing code

[John van Opstal]

Hoi,
Deze code werkt prima [met dank aan Wigi] als de zoektekst niet in een zin staat.
Mijn vraag is het mogelijk om de code zo te verbouwen dat de zoektekst ook midden
in een zin mag voorkomen?

Sub invullen()
Dim c As Range
For Each c In Range("G:G")
If c = "Zoektekst" Then
c.Offset(0, -1) = "x"
End If
Next
End Sub

Alvast hartelijk bedankt voor het meedenken.
Groejes John.

 

[Wigi]

Sub invullen()
Dim c As Range
For Each c In Range("G:G")
If InStr(c, "Zoektekst") > 0 Then
c.Offset(0, -1) = "x"
End If
Next
End Sub

 

[John van Opstal]

Voor de zoveelste keer bedankt Wigi,
werkt perfect