Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngZelle As Range, strAdr As String
If Not Intersect(Target, [B5]) Is Nothing Then
If [B5].Value = "" Then
Cells.Rows.Hidden = False
Else
Cells.Rows.Hidden = True
Rows("1:6").Hidden = False
With Columns("A")
Set rngZelle = .Find([B5].Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then strAdr = rngZelle.Address
While Not rngZelle Is Nothing
rngZelle.EntireRow.Hidden = False
Set rngZelle = .FindNext(after:=rngZelle)
If rngZelle.Address = strAdr Then Set rngZelle = Nothing
Wend
End With
End If
End If
Set rngZelle = Nothing
End Sub