Supportnet Computer
Planet of Tech

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.

Sub AUTOFILTER_KleinerHeute()
    x = "<" & Format(Date, "0")
    Selection.AUTOFILTER Field:=5, Criteria1:=(x), Operator:=xlAnd
End Sub


Gruss Werner

Antwort 2 von Pistenschreck

Hi Tobias

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 Sub


Und dann wieder Alle anzeigen

Sub AUTOFILTER_alle()
    If ActiveSheet.FilterMode = True Then
    [A1:E1].AUTOFILTER
    [A1:E1].AUTOFILTER
    End If
End Sub


Gruss 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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: