Filter in einer Tabelle über Makro setzen
23.01.2018 10:49:22
Pascal
habe eine Tabelle mit 10 Spalten, Spalte 9 enthält in jeder Zeile ein Datum.
Nun möchte ich mit Hilfe einer Schaltfläche den Filter in Spalte 9 auf das heutige Datum setzen lassen.
Wollte diesen Code dafür verwenden:
Private Sub CommandButton1_Click()
Dim varDate As Date
varDate = Date
Sheets("Tabelle1").Range("I5").AutoFilter Field:=9, Criteria1:=Date, Operator:=xlAnd
End Sub
Hat jemand eine Idee was falsch sein könnte ?
Gruß
Pascal