warum liefert der Befehl
.AutoFilter Field:=4, Criteria1:=CLng(DateValue(strDatumVon))
keine Auswahl?
Die Spalte ist auf Datum formatiert, aber nach Ausführen des Befehls wird nichts angezeigt.
Bin für jeden Tip dankbar.
Viele Grüße
Egon
Sub Makro1()
'AutoFilter Field:=4, Criteria1:=CLng(DateValue(strDatumVon))
Dim strdatumvon As Date
strdatumvon = "12.05.48"
Range("I2").AutoFilter Field:=9, Criteria1:=">=" & Year(strdatumvon) & "/" & _
Month(strdatumvon) & "/" & Day(strdatumvon)
End Sub
Sub Filter()
Dim strDatum As String
strDatum = "19.09.2004"
With Tabelle1
' .Cells(10, 4).AutoFilter Field:=1, _
' Criteria1:="=" & Year(strDatum) & "/" & Month(strDatum) & "/" & Day(strDatum)
.Cells(10, 4).AutoFilter Field:=1, _
Criteria1:=">=" & Year(strDatum) & "/" & Month(strDatum) & "/" & Day(strDatum), _
Operator:=xlAnd, Criteria2:="<=" & Year(strDatum) & "/" & Month(strDatum) & "/" & Day(strDatum)
End With
End Sub