Wie kann man Spalten basierend auf einem Datum in Excel automatisch ausblenden?
Angenommen, ich habe einen Datenbereich in einem Arbeitsblatt, und jetzt möchte ich die Spalten basierend auf einem bestimmten Datum automatisch ausblenden. Zum Beispiel, wenn ich das Datum 16.05.2016 in eine Zelle eingebe, möchte ich, dass die Spalten, deren Datum kleiner als dieses spezifische Datum ist, sofort ausgeblendet werden, wie im folgenden Screenshot gezeigt. Dieser Artikel stellt einige Tricks zur Lösung dieses Problems vor.
Spalten basierend auf einem bestimmten Datum mit VBA-Code automatisch ausblenden
Spalten basierend auf einem bestimmten Datum mit Kutools für Excel ausblenden
Spalten basierend auf einem bestimmten Datum mit VBA-Code automatisch ausblenden
Um diese Aufgabe abzuschließen, könnte der folgende VBA-Code Ihnen helfen. Bitte gehen Sie wie folgt vor:
1. Wählen Sie das Tabellenblatt aus, das Sie nach Datum ausblenden möchten, und klicken Sie mit der rechten Maustaste, um „ Ansicht Code“ im Kontextmenü auszuwählen, um zum Microsoft Visual Basic for Applications-Fenster zu gelangen. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Modul ein:
VBA-Code: Spalten basierend auf einem bestimmten Datum automatisch ausblenden:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("K4").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("A1:I1")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
2. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück, und jetzt werden, wenn Sie ein Datum in Zelle K4 eingeben, die Spalten mit früheren Daten als dem angegebenen Datum automatisch ausgeblendet.
Hinweis: Im obigen Code ist K4 die spezifische Datumszelle, basierend auf der Sie die Spalten ausblenden möchten, A1:I1 sind die Zeilenzellen, die das von Ihnen verwendete Datum enthalten.
Spalten basierend auf einem bestimmten Datum mit Kutools für Excel ausblenden
Wenn Sie mit dem Code nicht vertraut sind, gibt es hier ein praktisches Tool – Kutools für Excel. Mit seiner Funktion „Bestimmte Zellen auswählen“ können Sie diese Aufgabe mühelos erledigen.
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Wählen Sie die Datumsüberschriften aus, und klicken Sie auf Kutools > Auswählen > Bestimmte Zellen auswählen, siehe Screenshot:
2. Wählen Sie im erscheinenden Dialogfeld „Bestimmte Zellen auswählen“ Gesamte Spalte aus dem Auswahltyp aus, und wählen Sie dann das Kriterium, z.B. Kleiner als, aus der Dropdown-Liste Typ angeben aus, und geben Sie das Datum in das daneben liegende Textfeld ein, basierend auf dem Sie die Spalten ausblenden möchten, siehe Screenshot:
3. Klicken Sie dann auf die Schaltfläche OK, und die spezifischen Spalten, deren Datum kleiner als der 16.05.2016 ist, werden sofort ausgewählt, siehe Screenshot:
4. Klicken Sie dann mit der rechten Maustaste auf eine beliebige ausgewählte Spaltenüberschrift und wählen Sie Ausblenden, um die ausgewählten Spalten bei Bedarf auszublenden. Siehe Screenshot:
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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 Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins