• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel VBA fout in datumformaat bij autofilter

Status
Niet open voor verdere reacties.
F

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:
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.....
 
Hoop dat je een voorbeeld document plaatst...
 
Code: 
AutoFilter 11, ">=" & Format(Range("P1").Value, "m-d-yyyy"
 
Code: 
AutoFilter 11, ">=" & clng(Range("P1"))
 
Anders:
Code: 
">=" & format(Range("P1"), "m/d/yyyy hh:mm")
 
Code: 
Sub Refresh()
  With Cells(6, 3).CurrentRegion
    .AutoFilter
    .Sort .Cells(1, 6), , , , , , , xlYes
    .AutoFilter 11, ">=" & Format(Range("P1"), "m/d/yyyy hh:mm")
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan