19.11.2023, 16:56
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