Private Sub Worksheet_Change(ByVal Target As Range)
If [B1] = "" Then
Range("$A$3:$B$3").AutoFilter
Else
Range("$A$3:$B$3").AutoFilter Field:=1, Criteria1:=">=" &Format([B1].Value,"dd.mm.yyyy"), Operator:=xlAnd, _
Criteria2:="<=" & Format([B1].Value, "dd.mm.yyyy")
End If
End Sub