Hallo,
Code in die Tabelle einfügen:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
Application.ScreenUpdating = False
Cells.Rows.EntireRow.Hidden = False
For Each Zelle In Range("B22:B" & Range("B65536").End(xlUp).Row)
If Zelle.Text <> Range("E5").Value Then
Zelle.Rows.EntireRow.Hidden = True
End If
Next
If Range("E5") = "" Then Cells.Rows.EntireRow.Hidden = False
End Sub
Musterdatei:
Namen
Gruß
fedjo