Zellen nach zwei Kritieren filtern

Bild

Betrifft: Zellen nach zwei Kritieren filtern
von: Chris
Geschrieben am: 16.10.2015 06:15:08

Hallo zusammen,
ich möchte per vba eine Zelle nach zwei verschiedenen Kriterien filtern:
In Spalte A stehen in jeder Zelle das Datum und die Uhrzeit (Format: TT.MM.JJJJ hh:mm:ss).
Beispiel:
A1: 01.10.2015 16:01:00
A2: 02.10.2015 11:10:34
A3: 04.10.2015 14:34:22
A4: 10.10.2015 13:02:22
Nun möchte ich per VBA filtern:
Alle Zellen mit Datum zwischen dem 01.10 (einschließlich) und 10.10 (einschließlich)
UND alle Zellen mit der Uhrzeit ab dem 01.10 ab 13:01 Uhr bis zum 10.10. bis 13:00 Uhr.
Übrig bleiben sollten im obigen Beispiel daher die Zellen:
A1, A2 und A3.
A4 nicht, da zwar das Datum stimmt, aber 13:02 größer 13:00 ist.
Ist so etwas ohne Hilfsspalten möglich?
Falls nötig, kann das Zellenformat auch geändert bzw. angepasst werden.
Gruß
Chris

Bild

Betrifft: AW: Zellen nach zwei Kritieren filtern
von: Daniel
Geschrieben am: 16.10.2015 09:56:22
Hi
einfach mit dem Autofilter als Datumsfilter mit der Option "Zwischen" und oberen und unteren Grenzwert eingeben. Die Uhrzeit kannst du mit dazu schreiben (ggf vorher aus der Auswahlliste einen Wert auswählen und dann abändern)
beim Ausführen des Autofilters mit VBA musst du darauf achten, dass das Datum amerikanisch geschrieben werden muss: Monat / Tag / Jahr

ActiveSheet.Range("$A$1:$A$5").AutoFilter Field:=1, _
                                Criteria1:=">=10/1/2015 13:01", _
                                Operator:=xlAnd, _
                                Criteria2:="<=10/10/2015 13:00"
(wenn du mit dem Markorecorder arbeitest: dieser wird immer eine Landestypische Datumsschreibweise aufzeichnen, so wie du sie in den Assisstenten eingegeben hast. diese musst du aber auf das amerikanische Format abändern, damit der aufgezeichnete Code läuft.)
Gruß Daniel

Bild

Betrifft: AW: Zellen nach zwei Kritieren filtern
von: Chris
Geschrieben am: 16.10.2015 10:59:18
Hallo Daniel,
danke für die Info. Der VBA Code läuft, anpassen kann ich es nun selber.
Danke und Gruß
Chris

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen nach zwei Kritieren filtern"