OT @robert
06.08.2013 16:11:16
hary
Wollte nicht im anderen Thread reinballern.
Hab nur 2007. Musste deinen Code so aendern damit er funzt.
Filtert alles groesser/gleich letzten Montag.
Dim a As Date
With Sheets(1)
If Not .AutoFilterMode Then
.Cells(1, 1).AutoFilter
End If
a = Date - Weekday(Date, 2) - 6
.Cells(1, 1).CurrentRegion.AutoFilter _
Field:=1, Criteria1:=">=" & Year(a) & "/" & Month(a) & "/" & Day(a)
End With
gruss hary
Datums und ich werden nie Freunde!!!
Anzeige