Frankell87
Gebruiker
- Lid geworden
- 7 mei 2015
- Berichten
- 141
Hallo heren en dames,
ik probeer via filter op een tabel toe te passen met een stukje VBA, maar op de een of andere manier komt de datum in het filter erin te staan met een ander format dan het format van de cel waar hij het uithaalt.
In cel P1 staat nu:
10-08-2018 10:00
Als ik de code laat lopen en kijk in het filter wat hij heeft gedaan staat er:
08-10-2018 10:00:
Hij gooit de dag en de maand om zeg maar.
Alle formats van de cellen staan goed en heb onderstaande formule ook al omgezet naar wat specifieker (wat niet eens uit moet maken volgens mij want een datum is een getal
Poging 1:
Poging 2
Wat het nog vreemder maakt is dat als ik in P1 een datum ingeef van bijvoorbeeld 31-10-2018 10:00 dan doet hij het wel goed....... (deze kan hij natuurlijk ook niet omzetten want dan heb je het over maand 31)
Hoop dat iemand een oplossing weet.....
ik probeer via filter op een tabel toe te passen met een stukje VBA, maar op de een of andere manier komt de datum in het filter erin te staan met een ander format dan het format van de cel waar hij het uithaalt.
In cel P1 staat nu:
10-08-2018 10:00
Als ik de code laat lopen en kijk in het filter wat hij heeft gedaan staat er:
08-10-2018 10:00:
Hij gooit de dag en de maand om zeg maar.
Alle formats van de cellen staan goed en heb onderstaande formule ook al omgezet naar wat specifieker (wat niet eens uit moet maken volgens mij want een datum is een getal
Poging 1:
Code:
Selection.AutoFilter Field:=11, Criteria1:=">=" & Range("P1").Value
Poging 2
Code:
Selection.Sort Key1:=Range("H6"), Order1:=xlAscending, Header:=xlYes 'Sort on columb "H" (Function location)
dbdate = Range("P1")
dbdate = DateSerial(Year(dbdate), Month(dbdate), Day(dbdate)) + TimeSerial(Hour(dbdate), Minute(dbdate), Second(dbdate))
Selection.AutoFilter Field:=11, Criteria1:=">=" & dbdate
Wat het nog vreemder maakt is dat als ik in P1 een datum ingeef van bijvoorbeeld 31-10-2018 10:00 dan doet hij het wel goed....... (deze kan hij natuurlijk ook niet omzetten want dan heb je het over maand 31)
Hoop dat iemand een oplossing weet.....