Suchen in Spalte A

[snb]

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$E$4" And Target <> "" Then
    With ListObjects(1).DataBodyRange
      .AutoFilter 1, .Cells(Application.Match(Target, .Columns(1), 1), 1)
    End With
  End If
End Sub