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 ausblendenUm 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 ausWenn 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.
| Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. |
Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:
1. Wählen Sie die Datumsüberschriften aus und klicken Sie auf Kutools > Klicken Sie (sodass dort ein Haken erscheint) auf das Rechteck > 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 Verstecken um diese ausgewählten Spalten nach Bedarf auszublenden. Siehe Screenshot:
Klicken Sie auf Free Download Kutools for Excel Now!
