Anzeige
Archiv - Navigation
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Filtern beim Jahreswechsel

Filtern beim Jahreswechsel
02.01.2018 14:05:16
Oliver
Hallo liebe Forum-Freunde,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Filtern ab Vormonat
02.01.2018 14:19:58
Gerd
Hallo Oliver!
Sheets("Start").Rows(1).AutoFilter Field:=1, _
Criteria1:=">=" & CLng(DateSerial(Year(Date), Month(Date) - 1, 1)), Operator:=xlAnd

Gruß Gerd
Filtern beim Jahreswechsel
03.01.2018 12:17:11
Oliver
Hallo Gerd,
super vielen lieben Dank - es funktioniert ganz hervorragend.
Beste Grüße - ach ja und ein gesundes neues Jahr.
Oliver
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige