Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1412to1416
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
1412to1416
1412to1416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nach Datum filtern (Autofilter)

Nach Datum filtern (Autofilter)
05.03.2015 22:55:15
Rolf
Hallo zusammen
Ich habe eine Liste mit ca. 1000 Zeilen. In der Spalte A befindet sich ein Datum. Das Datum kommt mehrmals vor. Ich möchte nun mittels VBA den AutoFilter auf dem Datum setzen. Und zwar soll es das jünste und zweitjünste Datum ermitteln und dann alle Einträge mit diesen beiden Daten im Autofilter anzeigen. Alle anderen/älteren Einträge sollen ausgeblendet sein.
Beispiel:
Einträge ungefiltert
01.01.2015 xxxx xxxx
01.01.2015 xxxx xxxx
03.03.2015 xxxx xxxx
02.03.2015 xxxx xxxx
02.03.2015 xxxx xxxx
31.12.2014 xxxx xxxx
Einträge gefiltert
03.03.2015 xxxx xxxx
02.03.2015 xxxx xxxx
02.03.2015 xxxx xxxx
Wie kann ich das jünste und das zweitjünste Datum ermitteln und als Critical im Autofilter verwenden?
Vielen Dank für eure Unterstützung!!
Grüsse
Rolf

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Datum filtern (Autofilter)
06.03.2015 07:32:56
MCO
Guten Morgen!
Das sollte klappen:
Sub filtern()
x = 2
Do
Wert1 = WorksheetFunction.Large(Range("A:A"), x)
x = x + 1
Loop Until Wert1
Gruß, MCO

AW: Nach Datum filtern (Autofilter)
06.03.2015 15:37:13
Rolf
Hallo MCO
Vielen dank für die rasche Antwort. Es funktioniert!! Aber leider nur nicht ganz korrekt. So werd nun das zweit und drittneuste Datum angezeigt. Das neuste und die viert, fünft, sechts... ältesten werden ausgefiltert.
Beispiel
01.01.2015
02.02.2015
03.03.2015
04.04.2015
05.05.2015
Es erscheint
03.03.2015
04.04.2015
Richtig wäre
04.04.2015
05.05.2015
Ich habe aber keinen blassen Dunst was der Code macht und bin daher mit eigenen Anpassungsversuchen gescheitert. Kannst du mir nochmals helfen?
Merci und viele Grüsse
Rolf

Anzeige
AW: Nach Datum filtern (Autofilter)
06.03.2015 17:06:32
Werner
Hallo Rolf,
hier mal mein Lösungsansatz. Das jüngste und das zweitjüngste Datum ermittle ich im Tabellenblatt mittels Formel. Darauf wird dann über den VBA-Code zugegriffen und das entsprechende Filterkriterium gesetzt.
https://www.herber.de/bbs/user/96219.xlsm
Gruß Werner

AW: Nach Datum filtern (Autofilter)
06.03.2015 17:30:21
Werner
Hallo Rolf,
oder ggf. so, mit geändertem Code von MCO
Sub filtern()
Dim x As Long
Dim y As Long
x = Application.WorksheetFunction.Large(Worksheets(1).Columns("A"), 1) 'Worksheet ggf. anpassen
y = Application.WorksheetFunction.Large(Worksheets(1).Columns("A"), 2) 'Worksheet ggf. anpassen
ActiveSheet.Range("$A$1:$A$1000").AutoFilter field:=1, Criteria1:= _
">=" & Format(y, "00000"), Operator:=xlAnd, Criteria2:="
Gruß Werner
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