Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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
Anzeige

307 Forumthreads zu ähnlichen Themen

Format(etwas, "sonstwas") wird nicht erkannt
Mike

Hallo zusammen,
in einigen VBA-Projekten wird "Format" nicht erkannt. Meldung: "Fehler beim kompilieren, Falsche Anzahl an Argumenten oder Zuweisung einer Eigenschaft"
Öffne ich im gleichen VB-Editor eine neue Mappe/Projekt funktioniert es für die neue Mappe nicht aber für besagte alte...
20.08.2008 11:13:00
Thread-ID: 1003138
16 Beiträge
Anzeige
Teilergebnis einer Spalte wird nicht angezeigt
thaake

Hallo,
ich lasse mir die Teilergebnisse verschiedener Spalten anzeigen mit =Teilergebnis(9;V5:V300), was auch überall klappt, aber nur eine Spalte weigert sich. Formatierung ist vollkommen ok, das Anzeigen in einer anderen Zelle mit Verweis auf diese Spalte klappt auch nicht. Summe dagegen...
22.09.2008 11:21:12
Thread-ID: 1011416
2 Beiträge
Tabelle nach Anfangs und Enddatum filtern
Thomas

Hallo zusammen,
ich habe eine Frage, wie kann ich per VBA eine Tabelle nach Anfangs- und Enddatum filtern?
Vielen Dank im Voraus
Thomas
23.09.2008 09:50:53
Thread-ID: 1011635
5 Beiträge
Anzeige
Filter-Makro funktioniert nicht
Wolfango

Hallo Experten,
die Spalte Q einer Datenbank enthält Datumswerte.
Wenn ich nun einen benutzerdefinierten Filter (vorher Autofilter aktiviert) setze mit den Kriterien "ist kleiner oder gleich" "31.12.2008" funktioniert das einwandfrei. Die gesuchten Werte werden wie gewünscht angezeigt...
04.11.2008 10:28:00
Thread-ID: 1021496
8 Beiträge
Makro funktioniert nicht richtig, Werte auslesen
Uwe

Hallo zusammen, habe folgendes Problem in dem beigefügtem Makro funktioniert es nicht das er die Werte 2 und 3 aus der Tabelle ausliest. Wert 1 geht wunderbar. Hat jemand eine Lösung?
Hallo Uwe,
unregelmäßig aufgebaute Tabellen per Makro abzuarbeiten ist immer ziemlich aufwendig zu prog...
07.11.2008 08:22:00
Thread-ID: 1022502
2 Beiträge
Rechtschreibung: Pop-Up wird nicht mehr angezeigt
Norbert

Hallo,
nach dem Auswählen des Menüpunktes "Extras" - "Rechtschreibung", wird das zugehörige Pop-Up zur Auswahl der Korrekturvorschläge nicht mehr angezeigt.
Nach einem Klick auf die Schaltfläche "Rechtschreibung" ebenfalls nicht mehr.
Ich habe die möglichen Optionen zur Einstellung...
11.11.2008 11:22:22
Thread-ID: 1023480
3 Beiträge
Leere Filtern funktioniert nicht - wo Fehler?
Wolfgang

Hallo,
der nachstehende Code bewirkt ein Filtern über 16 Spalten bzw. Boxes; Ich würde ihn gerne, wie im Autofilter, ergänzen um (Leere), (Nichtleere) und (Alle). Ich habe, nach Hinweisen auf dem Forum, vor geraumer Zeit den Code versucht, anzupassen. Irgendwie ist aber noch ein Fehler dar...
04.12.2008 18:50:00
Thread-ID: 1030277
4 Beiträge
langer Text wird nicht mehr angezeigt
u_hoernchen

Ich muss einen langen Text (ca. 1.500 Zeichen) in eine Excel-Zelle schreiben (geht leider nicht anders, also das bitte nicht in Frage stellen). Nun wird beim Ausdruck und bei der Bildschirmanzeige aber die letzte Zeile nicht mehr umgebrochen (Zeilenumbruch ist formatiert), in der Zelle steht ab...
05.01.2009 11:10:25
Thread-ID: 1036916
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
15
7
1
4
15
7
1
2
3
3
24
2
3
5
8
4
4
1
7
3
5
2
2
3
7