Hallo Leute, 

kann mit einer sagen, warum der Code kein Datum filtert? 


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not (Intersect(Target, Range("H2")) Is Nothing) Then
         ActiveSheet.AutoFilter.Range.AutoFilter Field:=3, Criteria1:=Target.Value
    End If
End Sub

vielen dank für die Antworten