Private
Sub
Worksheet_Change(
ByVal
Target
As
Range)
Dim
rngZelle
As
Range, strAdr
As
String
If
Not
Intersect(Target, Range(
"B5"
))
Is
Nothing
Then
If
Target.Value =
""
Then
Cells.Rows.Hidden =
False
Else
Cells.Rows.Hidden =
True
Rows(
"1:6"
).Hidden =
False
With
Columns(
"A"
)
Set
rngZelle = .Find(Range(
"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
Application.Goto Reference:=Range(
"B5"
)
Set
rngZelle =
Nothing
End
Sub