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: