Sub Tabellenfilter()
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)
Worksheets("Tabelle1").Range("A1").AutoFilter , Field:=1, Criteria1:=Txt, Operator:=xlOr, Criteria2:=Inhalt(i), Operator:=xlFilterValues
Next i
Exit For
End If
Next z
Dim TrennZeichen As String
TrennZeichen = " "
Set shet = ThisWorkbook.Sheets("Tabelle1")
End Sub