Autofilter werkt niet

Status
Niet open voor verdere reacties.
W

Woffels

Gebruiker
Lid geworden
8 jan 2006
Berichten
251
Met de macrorecorder heb ik een stukje code opgenomen die een datum filter legt op de eerste kolom. Data van 16-11-2022 00:00 tm 16-11-2022 23:59.

Code: 
Sub Macro3()
ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:=">=16-11-2022 0:00", Operator:=xlAnd, Criteria2:="<=16-11-2022 23:59"
End Sub

Bij het opnemen van de macro wordt de data netjes gefilterd, maar als ik daarna de macro run, werkt het filter niet en lijkt het alsof ie alle data weg gefilterd heeft. Ga ik dan na het uitvoeren van de macro "handmatig" naar dat filter toe, zie ik wel dat de juiste filtering is toegepast. Na ok klikken, is de data dan wel juist gefilterd.
 

Bijlagen

Zoek de verschillen ;)
Code: 
ActiveSheet.ListObjects("Tabel1").Range.AutoFilter Field:=1, Criteria1:=">=11-16-2022 0:00", Operator:=xlAnd, Criteria2:="<=11-16-2022 23:59"
 
Hm, vreemd, gaat bij mij ook fout.
Maar als je dag en maand omwisselt in de macro dan gaat het wel goed, dus zo:
Code: 
Criteria1:=">=11-16-2022 00:00", Operator:=xlAnd, Criteria2:="<=11-16-2022 23:59"
 
Logisch dus.
VBA werkt alleen met Amerikaanse notaties.
Dus maand-dag-jaar in plaats van dag-maand-jaar
 
Of zó:

Code: 
Sub M_snb()
  Sheet1.ListObjects(1).Range.AutoFilter 1, Format("16-11-2022", "\>0"), 1, Format("17-11-2022", "\<0")
End Sub
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan