Makro - Nach Datum filtern | HERBERS Excel Forum

Forumthread: Makro - Nach Datum filtern

Makro - Nach Datum filtern

18.06.2015 12:02:30

Sonja

Hallo,
ich stecke gerade ziemlich fest. Ausgangspunkt ist, das ich eine Dropdown Liste in einer Excel Datei habe, dort soll ausgewählt werden können "Letzte 14 Tage". Wird das ausgewählt, sollen nur noch Datensätze drinnen stehen, die ein Datum haben, das in den letzten 14 Tagen liegt.
Wie ich abhängig davon, was in dem Dropdown Feld angezeigt wird ein Makro aufrufe ist mir klar. Mein Problem liegt am Filter. Ich habe versucht die ganze Sache mit Makrorekorder aufzuzeichnen, aber dann müsste ich alle 14 Tage in dem Zeitraum dort reingeben. Außerdem will der Autofilter das Datum in der Form MM/TT/JJ.
Wer kann mir hier helfen? Ich brauche eigentlich nur einen Filter der mir alle Datensätze der letzten 14 Tage, gerechnet vom aktuellen Datum anzeigt. Für mich ist das schwierig, ihr habt damit sicher überhaupt keine Problem ;)
Liebe Grüße
Sonja

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Das würde mich auch mal interessieren

18.06.2015 12:38:32

Klexy
siehe meine AW. owT

18.06.2015 12:41:34

Rudi
AW: siehe meine AW. owT

18.06.2015 14:08:54

Sonja
Index außerhalb

18.06.2015 14:20:12

Rudi
AW: Index außerhalb

18.06.2015 16:10:01

Klexy
AW: Makro - Nach Datum filtern

18.06.2015 12:39:58

Rudi

Das würde mich auch mal interessieren

18.06.2015 12:38:32

Klexy

Eigentlich sollte es ja so funktionieren:

Sub Nach_Datum_Filtern()
Dim Datum As Date
Datum = Format(Date - 14, "dd.mm.yy")
ActiveSheet.Range("$A$1:$AI$657").AutoFilter Field:=3, Criteria1:=">" & Datum
End Sub

Tut es aber nicht.
Ich behelfe mir mit einem Riesenumweg über Umformatierung der Spalte in einen normalen Zahlenwert und nach der Filterung Rückformatierung in die vorher ausgelesene Formatierung. Das ist aber nicht schön und nicht allgemeingültig.

siehe meine AW. owT

18.06.2015 12:41:34

Rudi

AW: siehe meine AW. owT

18.06.2015 14:08:54

Sonja

Hallo,
@Klexi, ja ganz kompliziert konnte ich die Sache auch schon lösen. Aber da muss es doch was besseres geben.
@Rudi: Auf deine Idee bin ich auch schon gekommen. Bekomme aber da immer den "Index ausserhalb des gültigen Bereichs Fehler". Funktioniert also leider auch nicht.
Noch wer Ideen, bitte?
Liebe Grüße
Sonja

Index außerhalb

18.06.2015 14:20:12

Rudi

Hallo,
das liegt aber nicht am Filterkriterium.
Dein Code bzw. BspMappe?
Gruß
Rudi

AW: Index außerhalb

18.06.2015 16:10:01

Klexy

Hab grad rumprobiert und ganz allgemeingültig funktioniert es so:

ActiveSheet.Cells(1, 1).CurrentRegion.AutoFilter Field:=3, Criteria1:=">" & CLng(Date - 14)

Wobei hier Cells(1,1) die linke obere Ecke der zu filternden Tabelle ist, für den Fall, dass sie in der Breite und Länge variiert.

AW: Makro - Nach Datum filtern

18.06.2015 12:39:58

Rudi

Hallo,
als Ansatz:


Criteria1:=">" & CLng(Date - 14)

Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

Makro - Nach Datum filtern

Forumthread: Makro - Nach Datum filtern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread