tekst zoeken in cel

[patje8]

Ik wil graag naar verschillende stukken tekst zoeken in een kolom A. Als hij deze tekst vind moet er ---------- worden ingevuld in kolom B.

In kolom C staat een kruisje waar er een ---------- moet komen.

Er moet ---------- verschijnen bij:
B stuk
M
M stuk
GM stuk
Gew maar niet gew stuk!

Bekijk bijlage test.xlsx

 

[Cobbe]

Probeer deze eens:

Sub cobbe()
 For Each cl In Range("A1:A10")
   If InStr(1, cl, "B stuk", 1) > 0 Then cl.Offset(0, 1) = "*****"
   If InStr(1, cl, "M stuk", 1) > 0 Then cl.Offset(0, 1) = "*****"
   If InStr(1, cl, "GM stuk", 1) > 0 Then cl.Offset(0, 1) = "*****"
   If InStr(1, cl, "M ", 1) > 0 Then cl.Offset(0, 1) = "*****"
   If InStr(1, cl, "Gew", 1) > 0 And InStr(1, cl, "Gew stuk", 1) = 0 Then cl.Offset(0, 1) = "*****"
 Next
End Sub

 

[patje8]

Dit is via een macro.
is er geen formule dat ik kan gebruiken?

 

[patje8]

Zoeken naar B stuk en GM stuk is geen probleem maar voor gew en gew stuk lukt het niet.
Als ik zoek naar gew moet er ----------- komen maar bij gew stuk niet.

 

[Cobbe]

En waarom is de oplossing met macro niet goed?

Waarom moet rij 2 wel en rij 8 niet gestreept worden?

 

[patje8]

Ik wil geen macro omdat je dat steeds moet uitvoeren.

Rij 2 moet gestreept zijn omdat er gew in staat en rij 8 niet omdat dit gew stuk is.

 

[Cobbe]

Er staat in regel 2 gew en gew stuk.

Maar hoezo moet je een macro altijd doen lopen?

Probeer maar eens iets bij te vullen in kolom A