Supportnet / Forum / Tabellenkalkulation
nur Daten anzeigen die kleiner 10 Tage sind
Frage
Hallo,
ich brauch Eure Hilfe.
Ich habe eine Tabelle erstellt die ich regelmäßig aktualisiere. Die Daten kommen aus einer Datenbank.
In der Spalte E wird das Auftragsdatum eingetragen. Ich möchte gerne dann per Makkro mir nur die Daten anzeigen lassen die älter als 10 Tage sind berechnet immer vom aktuellen Datum, einen Filter setzten auf nur die Daten die älter sind als 10 Tage. Der Filter muss sich aber auch wieder entfernen lassen, damit ich auch mir die ganzen daten ansehen kann.
Ich danke Euch für Eure Hilfe!!!
Gruß
Elhamplo
Antwort 1 von Pistenschreck
Hi Tobias
Mit folgendem Code und Autofilter für Spalte E.
Gruss Werner
Mit folgendem Code und Autofilter für Spalte E.
Sub AUTOFILTER_KleinerHeute()
x = "<" & Format(Date, "0")
Selection.AUTOFILTER Field:=5, Criteria1:=(x), Operator:=xlAnd
End SubGruss Werner
Antwort 2 von Pistenschreck
Hi Tobias
Um ganz genau zu sein. Wenn kein Filter vorhanden ist.
Und dann wieder Alle anzeigen
Gruss Werner
Um ganz genau zu sein. Wenn kein Filter vorhanden ist.
Sub AUTOFILTER_KleinerHeute()
If ActiveSheet.FilterMode = True Then
x = "<" & Format(Date - 10, "0")
Selection.AUTOFILTER Field:=5, Criteria1:=(x), Operator:=xlAnd
Else
[A1:E1].AUTOFILTER
x = "<" & Format(Date - 10, "0")
Selection.AUTOFILTER Field:=5, Criteria1:=(x), Operator:=xlAnd
End If
End SubUnd dann wieder Alle anzeigen
Sub AUTOFILTER_alle()
If ActiveSheet.FilterMode = True Then
[A1:E1].AUTOFILTER
[A1:E1].AUTOFILTER
End If
End SubGruss Werner
Antwort 3 von Elhamplo
Hallo,
Sorry das ich mich erst jetzt melde.
Danke für die Hilfe. Funktioniert super!!! DANKE, DANKE, DANKE!!!!!!
Gruß
Elhamplo
Sorry das ich mich erst jetzt melde.
Danke für die Hilfe. Funktioniert super!!! DANKE, DANKE, DANKE!!!!!!
Gruß
Elhamplo

