Wie kann ich Spalten basierend auf dem Datum in Excel automatisch ausblenden?

Angenommen, ich habe eine Reihe von Daten in einem Arbeitsblatt. Jetzt möchte ich die Spalten basierend auf einem bestimmten Datum automatisch ausblenden. Wenn ich beispielsweise das Datum 5 in eine Zelle eingebe, möchte ich die Spalten, deren Datum unter diesem bestimmten Datum liegt, sofort ausblenden, wie im folgenden Screenshot gezeigt. In diesem Artikel werden einige Tricks zur Lösung vorgestellt.

Spalten basierend auf einem bestimmten Datum mit VBA-Code automatisch ausblenden

Blenden Sie Spalten basierend auf einem bestimmten Datum mit Kutools for Excel aus

Spalten basierend auf einem bestimmten Datum mit VBA-Code automatisch ausblenden

Um diese Aufgabe abzuschließen, kann Ihnen der folgende VBA-Code helfen: Gehen Sie wie folgt vor:

1. Wählen Sie die Registerkarte "Blatt" aus, die Sie nach Datum ausblenden möchten, und klicken Sie mit der rechten Maustaste, um sie auszuwählen Code anzeigen aus dem Kontextmenü, um zum Microsoft Visual Basic für Applikationen Kopieren Sie 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 geben Sie das Datum in die Zelle ein K4werden die Spalten, deren Datum unter diesem bestimmten Datum liegt, automatisch ausgeblendet.

Hinweis: Im obigen Code, K4 ist die spezifische Datumszelle, auf der Sie die Spalten basierend auf ausblenden möchten. A1: I1 Ist die Zeile Zellen enthalten das Datum, das Sie verwendet haben.

Blenden Sie Spalten basierend auf einem bestimmten Datum mit Kutools for Excel aus

Wenn Sie mit dem Code nicht vertraut sind, finden Sie hier ein praktisches Tool:Kutools for ExcelMit seinen Wählen Sie Bestimmte Zellen aus Dienstprogramm, können Sie diesen Job mit Leichtigkeit beenden.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Wählen Sie die Datumsüberschriften aus und klicken Sie auf Kutoolen > Auswählen > Wählen Sie Bestimmte Zellen aus, siehe Screenshot:

2. In der herausgesprungen Wählen Sie Bestimmte Zellen aus Dialogfeld auswählen Ganze Spalte von dem Auswahltypund wählen Sie dann die Kriterien aus, z Weniger als von dem Spezifischer Typ Dropdown-Liste, und geben Sie das Datum in das nebenstehende Textfeld ein, auf dessen Grundlage Sie Spalten ausblenden möchten (siehe Abbildung):

3. Und dann klick Ok Schaltfläche, werden die spezifischen Spalten, deren Datum kleiner als der 5 ist, sofort ausgewählt, siehe Screenshot:

4. Klicken Sie dann mit der rechten Maustaste auf eine ausgewählte Spaltenüberschrift und wählen Sie Verbergen um diese ausgewählten Spalten nach Bedarf auszublenden. Siehe Screenshot:

Klicken Sie auf Free Download Kutools for Excel Now!

---

Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

• Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
• Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
• Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
• Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
• Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
• Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
• Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
• Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
• Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

Lesen Sie mehr... Kostenfreier Download... Kauf... 

---

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!

Lesen Sie mehr... Kostenfreier Download... Kauf...