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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen