Hallo cracks,

in Spalte A sind "Namen" und in Spalte C "Freunde" ich habe versucht über die Messagebox einen Namen eingeben zu lassen bei der dann die Tabelle gefiltert wird (Spalte A).

Ziel ist es das ganze Umfeld der jeweiligen Person anzuzeigen.

Also wenn "Günther" die Freunde "Anna [ALT+ENTR] Thomas" hat dann soll die GANZE Tabelle nach allen 3 gefiltert worden sein aber nur indem man Günther eingegeben hat

Hoffe ihr könnt mir helfen 

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) 'dient zur bestätigung'


            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