Erworben oder Autofilter auf Datumsbereich von Zelldaten

Question

Ich habe ein Blatt (Sheet1), wobei Spalte i ein Datumsfeld ist. Ich möchte ein Makro erstellen, das nach Eingabe des Startdatums und des Enddatums fragt, diese Daten in zwei Zellen ablegt, z. B. i38, i39, und dann mit diesen Daten in diesen Zellen filtern. Ist das möglich?

Ich bin neu in Makros und VB, und kann nicht herausfinden, wie Sie Zellendaten in einem datumsbasierten Filter verwenden.

Danke für jede Hilfe.

Answer 1

beginnen mit:

diese ausgeführt wird:

Sub FilterDateRange() 
    Dim d1 As String, d2 As String, r As Range 
    Set r = Range("I1:I26") 

    d1 = ">" & Application.InputBox(Prompt:="enter start date", Type:=2) 
    d2 = "<" & Application.InputBox(Prompt:="enter start date", Type:=2) 

    r.AutoFilter 
    r.AutoFilter Field:=1, Criteria1:=d1, Operator:=xlAnd, Criteria2:=d2 

    Range("I38") = Mid(d1, 2) 
    Range("I39") = Mid(d2, 2) 
End Sub 

produzieren kann:

EDIT # 1:

Um umfassen die Endpunkte (nicht nur zwischen den Endpunkten), diese Zeilen Code verwenden:

d1 = ">=" & Application.InputBox(Prompt:="enter start date", Type:=2) 
d2 = "<=" & Application.InputBox(Prompt:="enter start date", Type:=2)