formel der søger efter bestemt tekst

Hvis du har dine tekster i A-kolonnn vil denenc formel i B-kolonnen - kopieret ned:

=HVIS(ELLER(IKKE(ER.FEJL(FIND("timer";A1;1)));IKKE(ER.FEJL(FIND("gruppe/hold";A1;1))))=SAND;1;"")

Skrive 1 ud for de celler i A, hvor der enten står "timer" eller "gruppe/hold", og ingenting ud for de celler, hvor ingen af delene står.

En HVIS-function kunne nok gøre det - men der skal gøres noget ved teksterne.
En makro vil nok være mere enkelt.

Og så havde jeg lige overset at bogstaverne kunne være både store og små.

Prøv denne i stedet:

=HVIS(ELLER(IKKE(ER.FEJL(FIND(STORE.BOGSTAVER("timer");STORE.BOGSTAVER(A1);1)));IKKE(ER.FEJL(FIND(STORE.BOGSTAVER("gruppe/hold");STORE.BOGSTAVER(A1);1))));1;"")

eller på engelsk

=IF(OR(NOT(ISERROR(FIND(UPPER("timer"),UPPER(A1),1))),NOT(ISERROR(FIND(UPPER("gruppe/hold"),UPPER(A1),1)))),1,"")

jamen, den løste problemet lige som den skulle.
Jeg kendte ikke til den finte med STORE.BOGSTAVER

Jeg vælger den danske.
Tak for hjælpen

Har du et svar?

Jeg har selv rodet med et forsøg på en kode, som ikke virkede.
Det kunne være sjovt, hvis jeg lige kunne få at vide hvad jeg gør galt:


Sub test()
With ThisWorkbook.Worksheets("ark1")
For T = 1 To 500
If Cells(T, "A") = "timer" Then Cells(T, "B") = "1"
If Cells(T, "A") = "gruppe/hold" Then Cells(T, "B") = "1"
Next
End With
End Sub

Her er et svar.

Din kode virker hos mig, bortset fra at den kund finder de steder, hvor teksten er det eneste, der står i cellen. Og ikke skelner mellem store og små bogstaver.

Dette ville løse det sidst problem:

Sub test()
With ThisWorkbook.Worksheets("ark1")
For tn = 1 To 500
If UCase(Cells(tn, "A")) = UCase("timer") Then Cells(tn, "B") = "1"
If UCase(Cells(tn, "A")) = UCase("gruppe/hold") Then Cells(tn, "B") = "1"
Next
End With
End Sub

Men en nemmere løsning, der klarer begge problemer kunne fx være;

Sub t()
    For Each c In Range("a1:A5").Cells
        a = InStr(1, UCase(c.Value), "TIMER")
        b = InStr(1, UCase(c.Value), "GRUPPE/HOLD")
        If a <> 0 Or b <> 0 Then
        c.Offset(0, 1) = 1
    End If
Next c
End Sub

Og det skulle så have været et svar.

mange tak.
ja, selvom jeg havde en stump kode, var der nu alligevel langt til jeg var kommet i mål.