Autofilter auf "letzten" Montag setzen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() With Sheets(1) If Not .AutoFilterMode Then .Cells(1, 1).AutoFilter End If .Cells(1, 1).CurrentRegion.AutoFilter _ Field:=1, Criteria1:=Date - Weekday(Date, 2) - 6 End With End Sub

Dim i As Long With Worksheets("Zeiterfassung") 'Name anpassen i = .Cells(.Rows.Count, 4).End(xlUp).Row Debug.Print "=" & Format(Textbox1.Value, "dd.MM.yyyy") & "*" Select Case Val(Application.Version) Case 11, 12 'E2003, E2007 Debug.Print Format(Textbox1.Value, "M\/dd\/yyyy") .Range("D6:D" & i).AutoFilter Field:=1, Criteria1:=Array(2, Format(Textbox1.Value, _ "M\/dd\/yyyy")), Operator:=xlAnd Case 14, 15 'E2010, E2013 Debug.Print "=" & Format(Textbox1.Value, "dd.MM.yyyy") .Range("D6:D" & i).AutoFilter Field:=1, Criteria1:="=" & Format(Textbox1.Value, " _ dd.MM.yyyy"), Operator:=xlAnd End Select '.Range("B1:J" & i).PrintOut 'oder .Range("B6:J" & i) '.Range("D6:D" & i).AutoFilter End With

Sub Filt() With Sheets(2) If Not .AutoFilterMode Then .Cells(1, 1).AutoFilter End If .Cells(1, 1).CurrentRegion.AutoFilter _ Field:=1, Criteria1:=">=" & Format(Date - Weekday(Date, 2) - 6, "DD.MM.YYYY"), Operator:= _ xlAnd End With End Sub

Sub Workbook_Open() Sheets("wie_auch_immer").Select ActiveSheet.Range("AS:AS").Select With ActiveSheet If Not .AutoFilterMode Then .Cells(1, 1).AutoFilter End If .Cells(1, 1).CurrentRegion.AutoFilter _ Field:=1, Criteria1:=">=" & Format(Date - Weekday(Date, 2) - 7, "DD.MM.YYYY"), Operator: _ = _ xlAnd End With End Sub

Private Sub Workbook_Open() Dim a As Date With Worksheets("wie_auch_immer") If Not .AutoFilterMode Then .Cells(1, "A").AutoFilter End If a = Date - Weekday(Date, 2) - 6 .Cells(1, "A").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=" & Year(a) & "/" & Month( _ a) & "/" & Day(a) End With End Sub

Da bin ich wieder ;)
Habe das ganze jetzt mal mit neuen Daten getestet, grundsätzlich funktionoiert es, allerdings _ habe ich jetzt neben dem letzten Montag (29. Juli) auch noch den 5. August, ich nehme an das liegt an


Criteria1:=">="

, wenn ich das > rausnehme findet er gar nichts mehr, kann das am Format vom Datum liegen? In meinem Excel File ist das Datum als 29. Jul 13 angegeben.
Vielleicht hat ja jemand einen Lösungsvorschlag ;)
Hier nochmal der ganze Code

Dim a As Date
With Worksheets("wie_auch_immer")
If Not .AutoFilterMode Then
.Cells(1, "AS:AS").AutoFilter
End If
a = Date - Weekday(Date, 2) - 6
.Cells(1, "AS:AS").CurrentRegion.AutoFilter Field:=45, Criteria1:=">=" & Day(a) & "/" &  _
Month( _
a) & "/" & Year(a)
End With

Vielen Dank und liebe Grüße
Edward

Dim a As Date With Worksheets("wie_auch_immer") If Not .AutoFilterMode Then .Cells(1, "AS:AS").AutoFilter End If a = Date - Weekday(Date, 2) - 6 .Cells(1, "AS:AS").CurrentRegion.AutoFilter Field:=45, Criteria1:=">=" & Day(a) & "/" & _ Month( _ a) & "/" & Year(a) End With

Dim a As Date With Worksheets("Tabelle1") If Not .AutoFilterMode Then .Cells(1, "A").AutoFilter End If a = Date - Weekday(Date, 2) + 1 'hier lag der Fehler .Cells(1, "A").CurrentRegion.AutoFilter Field:=1, Criteria1:=">=" & Year(a) & "/" & Month( _ _ a) & "/" & Day(a) End With

Beliebteste Forumthreads (12 Monate)

Autofilter auf "letzten" Montag setzen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Autofilter auf "letzten" Montag setzen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread