|
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
Sub Tabellenfilter()
'
' Tabellenfilter Makro
'
'
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
|