Hjælp til formel eller kode

For gammel venskabs skyld .....
Jeg har sendt en hjemmestrikket løsning til dig, som du måske kan bruge.

Hvis du kan bruge det, skal jeg prøve at redegøre for løsningen her.

Jeg har lavet en funktion, som du kan kalde fra dit regneark ved at skrive
=SøgTekst(Område;Tekst)

Og placere denne kode i et VBA modul

Function SøgTekst(ByVal Find As Variant, ByVal Tekst As String) As String
For Each x In Find
    c = InStr(1, Tekst, x, vbTextCompare) + c
    Next
    If c > 0 Then
        SøgTekst = Mid(Tekst, InStr(1, Tekst, "from") - 1, Len(Tekst) - InStr(1, Tekst, "from") + 2)
    End If
End Function

Jeg glemte vist lige at forklare lidt nærmere om formlen :-)

Hvis du f.eks har dit kriterieområde i c1:c5 og det er teksten i celle a5 du skal teste på, så skriver du i celle b5 følgende:
=søgtekst($c$1:$c$5;a5)
Så returnerer denne funktion det der står fra (from og resten af teksten
Du kan herefter bare kopiere formlen nedad i arket

Jeg skulle lige prøve den - og den virker jo upåklageligt.
Men da jeg havde blanke celler i mit område x, var jeg nødt til at tilpasse lidt. Men det var bare lige en kommentar.
___________________________________________
Function SøgTekst(ByVal Find As Variant, ByVal Tekst As String) As String
For Each x In Find
    If VarType(x) > 0 Then
        c = InStr(1, Tekst, x, vbTextCompare) + c
            If c > 0 Then
            SøgTekst = Mid(Tekst, InStr(1, Tekst, "from") - 1, _
Len(Tekst) - InStr(1, Tekst, "from") + 2)
            End If
    End If
Next
End Function

Hej

Både Jans og Fobians løsninger var rigtigt gode. Tak for indsatsen. Jeg har nu valgt Fobians, da den var rimelig hurtigt at klistre ind i mit regneark. Men I skal da begge have nogle points. Jan lægger du lige et svar ??

Jo da .... selvom jeg ikke rigtigt kan bruge dem til noget ....

He he med den holdning får Fobian de fleste, men så kan du jo få én på den alternative "tavle".

Tak for hjælpen begge to - jeg har faktisk lært en hel masse af det.

Selv tak :-)

Fint med mig ..... :-)
Nu må jeg snart kigge forbi fyn ....

Du skal være så velkommen....

Hov! - glemte du ikke at lukke spørgsmålet ;-)

Tjo - det mente jeg nu at jeg havde gjort, men pyt en god gerning kan ikke gøres for tit :-)