AW: Letzten 3 Monate per VBA filtern
26.04.2010 02:22:19
fcs
Hallo onkelbobby,
hier zwei Beispiele.
Hierbei wird davon ausgegangen, dass der Autofilter für das Blatt schon aktiv ist.
Gruß
Franz
Sub Filter_Start_und_Ende_im_aktuellen_Jahr()
Dim wksFilter As Worksheet, objFilter As Filter
Set wksFilter = Worksheets("Tabelle1")
With wksFilter
If .AutoFilterMode = True Then
'ggf. alle Daten anzeigen
For Each objFilter In .AutoFilter.Filters
If objFilter.On = True Then
.ShowAllData
Exit For
End If
Next
With .AutoFilter.Range
'Filter für Startdatum in Spalte A auf aktuelles Jahr setzen
.AutoFilter Field:=1, Criteria1:=">=" & CDbl(DateSerial(Year(Date), 1, 1)), _
Operator:=xlAnd, Criteria2:="=" & CDbl(DateSerial(Year(Date), 1, 1)), _
Operator:=xlAnd, Criteria2:="=" & CDbl(DateSerial(Year(Date), Month(Date) - 3, Day(Date))), _
Operator:=xlAnd, Criteria2:="