excel - 日付でオートフィルターする方法は?

Question

ここで何が問題なのですか

Dim dt1 As Date
dt1 = DateSerial(2012, 9, 1)
r0.Columns(6).AutoFilter
r0.Columns(6).AutoFilter field:=1, Criteria1:=dt1, VisibleDropDown:=False

r0 は範囲です - 9 列と 1300 行
r0.Columns(6) は日付形式です
列 6 の多くのセルの値は 1.9.2012 です (数式バーに表示されます)
この値を持つセルはありません。r0 のすべての行が折りたたまれます。

Answer 1

これを試して

r0.Columns(1).AutoFilter Field:=1, Operator:= _
    xlFilterValues, Criteria2:=Array(0, Format(dt1, "mm/dd/yyyy"))

また、列6のデータが、日付のような文字DateSerial列ではないことを確認してください。

Answer 2

このコードでテストしました：

Public Sub test()
  Dim dt1 As Date
  dt1 = DateSerial(2012, 9, 1)
  Dim r0 As Range
  Set r0 = Tabelle1.Range("A1:C23")
  'r0.Columns(3).AutoFilter
  r0.Columns(3).AutoFilter field:=1, Criteria1:=dt1, VisibleDropDown:=False
End Sub

このデータについて：

HeaderA | HeaderB| HeaderC
stuff   | stuff  | 01.09.2012
stuff   | stuff  | 01.09.2012
stuff   | stuff  | 02.09.2012
stuff   | stuff  | 04.04.2012
stuff   | stuff  | 01.02.2012
stuff   | stuff  | 07.09.2012
stuff   | stuff  | 01.09.2012
stuff   | stuff  | 08.10.2012
stuff   | stuff  | 01.09.2012
stuff   | stuff  | 01.09.2012

うまくいきました。