Filtern beim Jahreswechsel
02.01.2018 14:05:16
Oliver
ich habe mal eine Frage, mit folgendem Code lasse ich die Registerkarte "start" um alle Werte ausblenden die vor mehr als einem Monat liegen.
Nun hat sich zum Jahreswechsel ein Problem ergeben:
Es wird auf einmal alles ausgeblendet. Was auch nachvollziehbar, wegen des "Jahres" ist. Aber hat jemand eine einfach Lösung das Problem zu umgehen? Ab Februar läuft es ja dann wieder normal, da dann alles älter als Januar/2018 ausgebeldet wird.
Ich würde mich sehr über Eure Hilfe freuen.
Beste Grüße
Oliver
Sub filtern()
Dim v
Dim Anfang
Dim myMonth As Integer
Dim myYear As Integer
Sheets("start").Activate
ActiveSheet.Unprotect
'Start Filtern
myMonth = Month(Date) - 1
If myMonth = 0 Then myMonth = 12
myYear = Year(Date)
Anfang = DateSerial(myYear, myMonth, 1)
v = CDbl(Anfang)
Selection.AutoFilter Field:=1, Criteria1:=">=" & v
ActiveSheet.Protect
'Reinigungsplan alles herausfiltern was kleiner als HEUTE ist
Sheets("reinigungsplan").Activate
Selection.AutoFilter Field:=1, Criteria1:=">=" & CDbl(Date), Operator:=xlAnd
Sheets("start").Activate
End Sub
Anzeige