Opvragen gegevens met start en einddatum

[danny147]

Beste,

Voor het ophalen van gegevens gebruik ik onderstaande code
Automatisch doet hij het niet en handmatig wel ???
Het is alsof de datum niet bevestigd wordt tijdens het filteren.
Als ik handmatig naar de filter ga en klik op "aangepast filter" en bevestig met "OK" dan krijg ik de gegevens te zien die ik wil.

Ligt het hier aan de opmaak van datum ?

Sub Opvragen_gegevens()

StartDate = Format("dd/mm/yyyy")
EndDate = Format("dd/mm/yyyy")
    
        Application.ScreenUpdating = False
            
        antwoord = MsgBox("Wens je PO-Plannen op te halen ?", vbQuestion + vbYesNo, "Loopkraan gegevens:")
    If antwoord = vbNo Then Exit Sub
        
        StartDate = InputBox("Geef hier de startdatum weer, Vb. 1/1/2018", "Ingeven Startdatum")
        EndDate = InputBox("Geef hier de einddatum weer, Vb. 31/12/2018", "Ingeven Einddatum")
    
        Workbooks.Open Filename:="G:\Planning\Systeem\Laatste versie\Danny\output.xlsx"
        
    With Workbooks("Output.xlsx").Sheets("Rawdata")
        ActiveSheet.Range("$A$1:$R$8000").AutoFilter Field:=16, Criteria1:="P020"
        ActiveSheet.Range("$A$1:$R$8000").AutoFilter Field:=18, Criteria1:=">" & StartDate, Operator:=xlAnd, Criteria2:="<" & EndDate
        ActiveWorkbook.Worksheets("RawData").AutoFilter.Sort.SortFields.Clear
        ActiveWorkbook.Worksheets("RawData").AutoFilter.Sort.SortFields.Add Key:=Range("R1:R8000"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers
    End With
    
    With ActiveWorkbook.Worksheets("RawData").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

        Sheets("RawData").Cells(1).CurrentRegion.Copy Destination:=ThisWorkbook.Sheets("PO-Plannen met KP datum").Range("A3")
        ActiveWindow.Close
        
End Sub

 

[KristiaanL]

Alvast sorry dat ik off topic reageer, maar ik moest wel enorm lachen dat een map gebruikt met als naam "laatste versie".

 

[HSV]

Dit zou moeten werken.

StartDate = [COLOR=#ff0000]cdate([/COLOR]InputBox("Geef hier de startdatum weer, Vb. 1/1/2018", "Ingeven Startdatum")[COLOR=#ff0000])[/COLOR]
        EndDate = [COLOR=#ff0000]cdate([/COLOR]InputBox("Geef hier de einddatum weer, Vb. 31/12/2018", "Ingeven Einddatum")[COLOR=#ff0000])[/COLOR]

ActiveSheet.Range("$A$1:$R$8000").AutoFilter Field:=18, Criteria1:=">" & [COLOR=#ff0000]clng([/COLOR]StartDate[COLOR=#ff0000])[/COLOR], Operator:=xlAnd, Criteria2:="<" & [COLOR=#ff0000]clng([/COLOR]EndDate[COLOR=#ff0000])[/COLOR]

 

[danny147]

Beste HSV,

Dit werkt perfect, Bedankt :thumb: