filter werkt niet als ik NL Datum notatie dd/mm/yyyy gebruik, wel als ik via userform als Amerikaan notatie mm/dd/yyyy bewaar.
Kan iemand mij hiermee helpen.
Alvast bedankt.

Een ieder bedankt.
Oplossing als een ander ook wilt gebruiken:
--------- .AutoFilter Field:=14, Criteria1:=">=" & Format(Start, "m-d-yyyy") Operator:=xlAnd, _
Criteria2:="<=" & Format(Off, "m-d-yyyy")
Kan iemand mij hiermee helpen.
Alvast bedankt.
Code:
Dim Start
Dim Off
Start = DateValue(Me.txtDOTDate.Value)
Off = DateValue(Me.TxtRtnDate.Value)
MsgBox "" & Start
'Clear Sheet CopyList
Sheets("CopyList").Cells.ClearContents
Application.Goto Sheets("Data").[A10]
With Sheets("Data").Range("A10", ActiveCell.SpecialCells(xlLastCell))
.AutoFilter Field:=14, Criteria1:=">=" & Start, Operator:=xlAnd, _
Criteria2:="<=" & Off
End With
Sheets("Data").Range("A11", ActiveCell.SpecialCells(xlLastCell)).Copy
With Sheets("CopyList")
.[A2].PasteSpecial
.Cells.EntireColumn.AutoFit
End With
Application.CutCopyMode = False
ActiveSheet.[A14].AutoFilter
Application.Goto Sheets("CopyList").[A1]

Een ieder bedankt.
Oplossing als een ander ook wilt gebruiken:
--------- .AutoFilter Field:=14, Criteria1:=">=" & Format(Start, "m-d-yyyy") Operator:=xlAnd, _
Criteria2:="<=" & Format(Off, "m-d-yyyy")
Laatst bewerkt: