Dim z As Long
Dim Inhalt() As String
Dim abc As String
Dim Txt As String
Txt = InputBox("Eingabe:")
If Txt = "" Then Exit Sub
Worksheets("Tabelle1").Range("A1").AutoFilter , Field:=1, Criteria1:=Txt
For z = 2 To Cells.SpecialCells(xlCellTypeLastCell).Row
If Rows(z).Hidden = False Then
abc = Cells(z, 3).Value
Inhalt = Split(abc)
For i = 0 To UBound(Inhalt)
Cells(1, i + 5).Value = Inhalt(i)
Next i
Exit For
End If
Next z
Worksheets("Tabelle1").Range("A1").AutoFilter , Field:=1, Criteria1:=Txt, Operator:=xlOr, Criteria2:=Inhalt, Operator:=xlFilterValues
End Sub