Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 8 van 8

Onderwerp: Excel VBA fout in datumformaat bij autofilter

  1. #1
    Vraag is opgelost

    Excel VBA fout in datumformaat bij autofilter

    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.....

  2. #2
    Tera Honourable Senior Member edmoor's avatar
    Geregistreerd
    8 september 2000
    Locatie
    Zuid-Holland
    Hoop dat je een voorbeeld document plaatst...
    "Hardware: The parts of a computer system that can be kicked. "
    Op rechtstreekse vragen via email reageer ik niet. Daar is het forum voor.
    Lees ook: http://www.helpmij.nl/forum/announcement.php?f=5

  3. #3
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Code:
    AutoFilter 11, ">=" & Format(Range("P1").Value, "m-d-yyyy"
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  4. #4
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Code:
    AutoFilter 11, ">=" & clng(Range("P1"))
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    hallo heren,

    bedankt voor de reacties!
    die optie van HSV werkt. deze zet de datum goed, helaas neemt hij de tijd alleen niet mee. kan dat ook nog?

    Voorbeeld van het bestand:

    Voorbeeld.xlsm

  6. #6
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Anders:
    Code:
    ">=" & format(Range("P1"), "m/d/yyyy hh:mm")
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  7. #7
    Perfect!! Thanks HSV!

  8. #8
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    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
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren