Ook nog een optie met VBA als UDF.
Dit zet je achter een module. Vervolgens kun je de functie oproepen in je werkblad.
Hier ga ik er ook van uit dat je lijst in E2:E12 staat.
Function jec(cell As String) As String
For Each it In Application.Transpose(Range("E2:E12"))
a = Filter(Split("~" & Join(Split(Replace(cell, "BIO ", "BIO-")), "~|~") & "~", "|"), "~" & Replace(it, "BIO ", "BIO-") & "~", True, vbTextCompare)
If UBound(a) > -1 Then jec = jec & IIf(jec = "", "", ", ") & it
Next
End Function
Daarna invoeren als =jec(A1)