Macro, som kan søge på ord som begynder med "x" og ændre teksten i anden celle i rækken

Det kunne måske løses vha af denne?

Sub checkup()

Dim lastrow As Long
Dim x As Long

lastrow = Range("B1").SpecialCells(xlLastCell).Row

For x = 3 To lastrow
' starter i række 3 aht til overskrifter eller titler

' undersøger 4 betingelser - kan indstilles til flere
If UCase(Left(Cells(x, 2), 2)) = "EL" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 4)) = "DAMP" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 3)) = "GAS" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 5)) = "BRINT" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 6)) = "HELIUM" Then Cells(x, 1) = "Ja"

'sætter Nej hvis ikke betingelser ovenfor er opfyldt...
If Not Cells(x, 1) = "Ja" Then Cells(x, 1) = "Nej"
Next x

End Sub

mvh Kurt

Som jeg læser det kan det løses via en formel istedet.
Jeg ved dog ikke om det er hvad du søger.

Indsæt denne formel i A2:
=HVIS(HVIS.FEJL(FIND($A$1;B2);"nej")=1;"ja";"nej")

I A1 skriver du det søgeord din tekst starter med, f.eks. "damp".

I B2 kommer din første opslagsværdi, f.eks. dampskib.

Mange tak for svaret KurtOA, det virkede helt perfekt.

Et tillægsspørgsmål:
Hvis jeg har tre svar i kolonne 1 "ja", "nej" og "måske" hvordan kan jeg flætte det ind i denne macro ?
For så skal jeg vel have en if not betingelse mere, men virker den så ?

pft
Henrik

selvfølgelig kan det laves ;-)
spm er bare hvordan det er smartest for dig....

linien herunder checker om der er skrevet "Ja"
- ellers skriver den "nej"
If Not Cells(x, 1) = "Ja" Then Cells(x, 1) = "Nej"

Hvis du fjerner linien skrives der ikke noget og du kan selv manuelt skrive det ind..
Du kan evt selv skrive "måske" og så bruge denne istedet:

Sub checkup()

Dim lastrow As Long, x As Long
lastrow = Range("B1").SpecialCells(xlLastCell).Row

For x = 3 To lastrow ' starter i række 3 aht til overskrifter eller titler

' undersøger betingelser - kan indstilles til flere
If UCase(Left(Cells(x, 2), 2)) = "EL" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 4)) = "DAMP" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 3)) = "GAS" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 5)) = "BRINT" Then Cells(x, 1) = "Ja"
If UCase(Left(Cells(x, 2), 6)) = "HELIUM" Then Cells(x, 1) = "Ja"

'sætter Nej hvis ikke betingelser ovenfor er opfyldt eller der står "måske" i cellen ...
If UCase(Cells(x, 1)) <> "JA" And UCase(Cells(x, 1)) <> "MÅSKE" Then Cells(x, 1) = "Nej"

Next x

End Sub