letzte Woche filtern (Start Montag)

[Hohle]

Grüß euch,

da ich im WWW nichts gefunden habe, hoffe ich ihr könnt mir wieder helfen :)

Excel hat zwar einen Datumsfilter (letzte Woche), dieser startet jedoch Sonntag.
Meine Frage, gibt es eine Möglichkeit diesen Filter mit Montag zu starten?


Sollte es keine Möglichkeit geben, wäre noch einen Button mit VBA (letze Woche Montag bis einschließlich Sonntag) eine Möglichkeit?


Schon mal danke fürs Lesen.

Gruß
Hohle

[MisterBurns]

Wird meines Erachtens nur mit VBA gehen.

Code:

Sub filtern()
Dim Start As Long, Ende As Long
Start = Date - Weekday(Date) - 5    'Montag letzte Woche
Ende = Start + 6                    'Sonntag letzte Woche

With Sheets("Tabelle1")
   If .FilterMode = True Then .ShowAllData
   .Range("$A$1:$A$" & .Cells(.Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=1, Criteria1:= _
       ">=" & Start, Operator:=xlAnd, Criteria2:="<=" & Ende
End With
End Sub

[LCohen]

Ohne VBA. Deine Daten in A1:W999. Dann X nach WAHR autofiltern:

X2: =ABS(KÜRZEN((A2+5)/7)*7+5-HEUTE())<4

[LCohen]

Weitere Idee mit "letzte Woche" auf X (da Du ja nun eh schon eine Hilfsspalte hast):

X2: =A2-1

[MisterBurns]

Hmpf. An eine Hilfsspalte hab ich natürlich wieder nicht gedacht...  :33: :33: :33:

[Hohle]

Danke für eure Tipps  :19:

Ich werde mir das morgen mal genauer anschauen und geb euch dann ein Feedback.

[Jockel]

Grüß euch,

da ich im WWW nichts gefunden habe, hoffe ich ihr könnt mir wieder helfen :)

Excel hat zwar einen Datumsfilter (letzte Woche), dieser startet jedoch Sonntag.
Meine Frage, gibt es eine Möglichkeit diesen Filter mit Montag zu starten?
...
Gruß
Hohle

Hallo, wenn du Power Query Filter --> letzte Woche fertich.

[Hohle]

So Leute, jetzt hab ich mir das mal angesehen und etwas probiert.
Hilfsspalte wollte ich keine machen, da mit dem File einige Leute arbeiten und andere Files auf dieses zugreifen und dann die Auswertungen nicht mehr passen

@MisterBurns
Ich hab dein Makro versucht, leider hab ich es nicht geschafft, dass die C-Spalte gefiltert wird... (das Datum ist in der C-Spalte)
Eigentlich braucht man nur bei der Range von A auf C ändern und es sollte funktionieren oder?
Gerade den Fehler gefunden --> Autofilter Field auf 3 geändert und funktioniert :18:


@Jockel 
Danke für den Hinweis mit Power Query Filter.
Ich hab ein neues File genommen und mit dem Query die Daten aus dem anderen File geladen.
Funktioniert soweit einwandfrei  :19: 
Hab nur das Problem, dass die Kommentare nicht sichtbar sind.
Kann man diese eventuell auch irgendwie abfragen?
Sollte es nicht funktionieren, wäre es prinzipiell keine Dramatik, aber hin und wieder sind die Kommentare auch hilfreich

[MisterBurns]

Eigentlich braucht man nur bei der Range von A auf C ändern und es sollte funktionieren oder?

Das war natürlich nur als Beispiel gedacht. Du musst die Range auf den zu filternden Bereich anpassen, zB A:G (oder in welchem Bereich auch immer deine Daten stehen).
Und für die zu filternde Spalte änderst du den Eintrag "AutoFilter Field:=xx", wobei xx für die Spaltennummer steht. A=1, B=2, C=3 etc. etc.

Code:

  .Range("$A$1:$G$" & .Cells(.Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=3, Criteria1:= _
      ">=" & Start, Operator:=xlAnd, Criteria2:="<=" & Ende

Hilfsspalte wollte ich keine machen, da mit dem File einige Leute arbeiten und andere Files auf dieses zugreifen und dann die Auswertungen nicht mehr passen 

Das halte ich persönlich für Unsinn, man muss nur die Datei richtig aufbauen. Aber bitte.

[WillWissen]

Hi,

Hilfsspalte wollte ich keine machen, da mit dem File einige Leute arbeiten und andere Files auf dieses zugreifen und dann die Auswertungen nicht mehr passen

du kannst doch die HS weit außerhalb deiner Tabelle oder auf einem eigenen Tabellenblatt anlegen; dann beeinflusst sie auch keine Auswertungen.