kann mir hierzu wer helfen?
Ich möchte gerne Filtern nach dem Datums der aktuellen und kommenden Woche.
https://www.herber.de/bbs/user/107005.xlsx
danke.
Sub Kalenderwoche()
Dim KW As Integer
KW = WorksheetFunction.WeekNum(Date, 21)
ActiveSheet.Range("$B:$C").AutoFilter Field:=2, Criteria1:=">=" & KW, _
Operator:=xlAnd, Criteria2:="