Private Sub Worksheet_Change(ByVal Target As Range)
Dim derlig&, xcell, X
If Not Intersect(Target, Range("a6:b6")) Is Nothing Then
Application.ScreenUpdating = False
If Range("b6") = "" Then X = "*" Else X = Format(Range("b6"), "0000")
If Range("a6") = "" Then X = X & "*" Else X = X & Format(Range("a6"), "00")
derlig = Application.Match(9 ^ 99, Range("c:c"), 1)
For Each xcell In Range("c9:c" & derlig)
If IsDate(xcell) Then xcell.EntireRow.Hidden = Not (Format(xcell, "yyyymm") Like X)
Next xcell
End If
End Sub