No nakonec jsem to přecejen zkusil s tím makrem a vlastní funkcí:

Function PREDMETY5(kde)
    p5 = ""
    For i = 0 To kde.Columns.Count - 1
         If Cells(kde.Row + 1, kde.Column + i).Value = 5 Then
            p5 = p5 + Cells(kde.Row, kde.Column + i).Value + ", "
         End If
    Next i
    If p5 <> "" Then p5 = Left(p5, Len(p5) - 2)
    PREDMETY5 = p5
End Function

Ale s tím maticovým vzorcem výše to je elegantnější...