Filter op Datum

[Offthefield]

Ik heb een programma met een filter, waarbij iedere filters goed functioneert,
alleen de filter op DATUM doet niets

Weet iemand wat er fout gaat of hoe dit verholpen kan worden

hartelijk dank

Bekijk bijlage INKOOP.xls

 

[Offthefield]

Ik ben al weer iets verder, de filter werkt alleen als in de datum op Amerikaanse versie invoert
dus >13-9-2017, dan moet ik invoeren >9-13-2017

Hoe kan dit opgelost worden?


Bekijk bijlage INKOOP.xls

 

[VenA]

Aan code lijkt mij dit wel voldoende.

Private Sub CommandButton1_Click()
  Sheets("INKOOPLIJST").Cells(2, 2).CurrentRegion.AdvancedFilter xlFilterCopy, Range("B5:I6"), Range("B9:I9")
End Sub

Werkt inderdaad alleen met de Amerikaanse datumnotatie.

Maar kan je natuurlijk omzetten naar de juiste notatie

Private Sub CommandButton1_Click()
  c00 = Range("I6").Value
  For j = 1 To 2
    If InStr("<>=", Mid(c00, j, 1)) Then c01 = c01 & Mid(c00, j, 1)
  Next j
  Range("I6") = c01 & Format(Replace(c00, c01, ""), "m-d-yyyy")
  Sheets("INKOOPLIJST").Range("B2").CurrentRegion.AdvancedFilter xlFilterCopy, Range("B5:I6"), Range("B9:I9")
  Range("I6") = c00
End Sub

 

[Offthefield]

Geweldig, Ik ga nog wel even de procedure uitpluizen, top!!!:thumb: