Find tekst i tabel/celle

Jeg har tidligere arbejdet med denne

-------------------------------------
Sub Find()
    Application.ScreenUpdating = False
    Dim c As Range
    Dim cc As Range
    For Each c In Range("B1", Range("B" & Rows.Count).End(xlUp)).Cells
        For Each cc In Range("A1", Range("A" & Rows.Count).End(xlUp)).Cells
            If InStr(1, LCase(cc.Text), LCase(c.Text)) > 0 Then
                Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = cc.Value
            End If
        Next
    Next
    Application.ScreenUpdating = True
End Sub
-------------------------------------

Men så gerne, det var en formel

Med tekster i A2:A5 og "Søde" i B2 og "Gule" i B3

=HVIS(UDSKIFT(STORE.BOGSTAVER(A2);STORE.BOGSTAVER($B$2);"")<>A2;A2;HVIS(UDSKIFT(STORE.BOGSTAVER(A2);STORE.BOGSTAVER($B$3);"")<>A2;A2;""))

Hej excelent

Tak, Jeg har prøvet at forstå logikken i din formel, og tilpasse den ind i mine ark, tror ikke rigtig det vil virke.

Det jeg gerne vil at kigge "Søde" op i kolonne (#2), hvis den findes som indhold i en af sætningerne, så returnerer hele sætningen #2