VBA gedeelte van tekst

[AD1957]

Beste Forumleden,
Onderstaande code werkt perfect met de naam "loon, lonen, monteur" als de tekst precies deze naam is.
Nu wil ik bereiken dat als een gedeelte van de tekst deze namen bevat de code ook wordt uitgevoerd.
Ik heb geprobeerd om met de macrorecorder tot een resultaat te komen, lukt me echter niet.
Ook op de site van snb:thumb:, waar ik inmiddels heel veel van heb geleerd, vind ik geen oplossing.

If Target.Offset(, -4) = "" And Target.Offset(, -2) = "loon" Or Target.Offset(, -2) = "lonen" Or Target.Offset(, -2) = "monteur" Then
             Range(Target.Offset(, 1), Target.Offset(, 8)).ClearContents
             Target.Offset(, 3).Value = Target.Value * Target.Offset(, -1).Value
            End If

 

[Conseclusie]

Dit kun je oplossen met de Like-operator. Zie Help in VBA.

Target.Offset(, -2) Like "*loon*"

 

[AD1957]

Bedankt voor de oplossing:thumb:
Zelf had ik het al geprobeerd met "*loon*" of SEARCH "loon" of SEARCH "*loon*"