Wie filtere ich alle Datumszellen vor oder nach dem heutigen Tag in Excel?
In diesem Artikel werde ich darüber sprechen, wie alle Datumszellen gefiltert werden, die vor oder nach dem heutigen Tag im Excel-Arbeitsblatt angezeigt werden.
Filtern Sie alle Datumszellen vor oder nach dem heutigen Tag mit der Filterfunktion
Filtern Sie alle Datumszellen vor oder nach dem heutigen Tag mit VBA-Code
Filtern Sie alle Datumszellen vor oder nach dem heutigen Tag mit der Filterfunktion
Die Filterfunktion in Excel kann Ihnen dabei helfen, diese Aufgabe so schnell wie möglich zu lösen. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die Datumsspalte aus, die Sie filtern möchten, und klicken Sie dann auf Datum > Filter, siehe Screenshot:
2. Klicken Sie dann auf den Dropdown-Pfeil und wählen Sie Datumsfilter > Vorher / Nach der siehe Screenshot:
3. In dem Benutzerdefinierter AutoFilter Dialogfeld, klicken Sie auf Datumsauswahl
Klicken Sie auf und dann auf Heute Schaltfläche im Datumsauswahlkalender, siehe Screesnhot:
4. Dann klick OK Um den Dialog zu schließen, wurden alle Daten vor oder nach dem heutigen Tag wie folgt herausgefiltert:
Filtern Sie alle Datumszellen vor oder nach dem heutigen Tag mit VBA-Code
Die folgenden VBA-Codes können Ihnen auch dabei helfen, alle Daten vor oder nach dem aktuellen Tag in einem Arbeitsblatt zu filtern. Bitte machen Sie mit den folgenden Schritten:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie einen der folgenden Codes in das Feld ein Modul Fenster.
VBA-Code: Alle Datumszellen vor heute filtern:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, "<" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
VBA-Code: Filtern Sie alle Datumszellen nach dem heutigen Tag:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, ">" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
3. Nachdem Sie einen der oben genannten Codes kopiert und eingefügt haben, drücken Sie F5 Drücken Sie die Taste, um diesen Code auszuführen. Es erscheint ein Eingabeaufforderungsfeld, das Sie daran erinnert, dass Sie die Datumsspalte ausgewählt haben, die Sie filtern möchten, siehe Screenshot:
4. Und dann klick OK Schaltfläche werden alle Datumszellen, die vor oder nach dem heutigen Tag liegen, sofort herausgefiltert.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
