Note: The other languages of the website are Google-translated. Back to English

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.

doc Spalten nach Datum ausblenden 1

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

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


Pfeil blau rechte Blase 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

doc Spalten nach Datum ausblenden 2

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.


Pfeil blau rechte Blase 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.

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 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):

doc Spalten nach Datum ausblenden 4

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

doc Spalten nach Datum ausblenden 5

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:

doc Spalten nach Datum ausblenden 6

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.
kte tab 201905

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!
officetab unten
Kommentare (2)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Vielen Dank für den Code.
In meinem Fall ist die Zelle K4 eine Berechnungszelle aus der Formel =EOMONTH(A1,0). Beispiel: A1 = 01.03.2017. K4 nimmt den Wert 31.03.2017 an. Der von Ihnen vorgeschlagene VBA-Code blendet die Spalten jedoch nicht aus, bis ich auf die K4-Zelle klicke und die Eingabetaste drücke, um sie zu aktualisieren. Ich habe versucht, Range("K4").calculate hinzuzufügen, aber ohne Wirkung. Hilfe bitte.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das gleiche Problem wie Chris. Die Zelle mit meinem Datum ändert sich nicht immer. Ich muss das Makro unabhängig davon ausführen, ob sich das Datum gegenüber dem letzten Monat geändert hat oder dasselbe wie im letzten Monat ist, ohne auf die Zelle selbst klicken und die Eingabetaste drücken zu müssen, um die "Änderung" auszulösen.
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL