Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabelle nach kleinstem und größtem Datum filtern

Gruppe

Filtern

Problem

Wie kann ich auf Schaltflächendruck eine Tabelle nach Min-/MaxDatum filtern? Start- und Enddatum stehen in zwei Zellen.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Filtern()
   Range("A1").Select
   Selection.AutoFilter Field:=8, Criteria1:=">" & _
      CDbl(DateValue(Range("Datum1").Text)), Operator:=xlAnd, _
      Criteria2:="<" & CDbl(DateValue(Range("Datum2").Text))
 End Sub