VBA Inputbox Exacte Datum

[tonissteiner]

iemand een oplossing voor mijn probleem?

ik heb volgende code:

Private Sub CommandButton1_Click()

Dim currentd As Date
    
   currentd = DateValue(InputBox("Date to print?", "Valid Format - dd/mmm/yyyy", Date))
   If currentd = Empty Then Exit Sub
   
'   If IsError(currentd) Then
'   MsgBox ("Error. Please input a valid Date or leave blank")
'   Exit Sub
'   End If
    
    With ActiveSheet

        .AutoFilterMode = False
        .Range("E7").AutoFilter

        With .AutoFilter.Range

            Range("E7").Select
            Selection.AutoFilter Field:=5, Criteria1:=">=" & Format$(currentd, "mm/dd/yyyy"), Operator:=xlAnd, _
                                    Criteria2:="<=" & Format$(currentd, "mm/dd/yyyy")
            
        End With

    End With

End Sub

deze werkt goed zolang er een datum ingevuld is. zodra cancel gedrukt is loopt de code vast. ook indien geen datum ingevuld.

een leeg veld laten zou handig zijn om de filter te resetten.

waar ben ik fout?

alvast bedankt

 

[wampier]

Eerst de string opslaan van inputbox, daar vervolgens kijken of die leeg is en dan pas parsen naar de date functie.

 

[tonissteiner]

hoe bedoel je wampier?

 

[Cobbe]

Of zo misschien?

Private Sub CommandButton1_Click()
    currentd = InputBox("Date to print? Valid Format - dd/mmm/yyyy")
    If Not IsDate(currentd) = True Or currentd = Empty Then

        MsgBox ("Error. Please input a valid Date or leave blank")
        Exit Sub
    End If

    With ActiveSheet

        .AutoFilterMode = False
        .Range("E7").AutoFilter

        With .AutoFilter.Range

            Range("E7").Select
            Selection.AutoFilter Field:=5, Criteria1:=">=" & Format$(currentd, "mm/dd/yyyy"), Operator:=xlAnd, _
                                 Criteria2:="<=" & Format$(currentd, "mm/dd/yyyy")

        End With

    End With

End Sub

 

[tonissteiner]

Woehoew, werkt perfect. bedankt Cobbe