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
|