Wie können Spalten in Excel basierend auf Benutzereingaben in Echtzeit ausgeblendet werden?
Das Ausblenden von Spalten in Excel ist zwar eine gängige Aufgabe – aber haben Sie schon einmal versucht, Spalten automatisch basierend auf bestimmten Eingabewerten auszublenden? Geben Sie beispielsweise „AA“ in eine Zelle ein, wird Spalte A ausgeblendet; bei „BB“ verschwinden die Spalten B und C; bei „CC“ werden die Spalten D und E ausgeblendet; und bei der Eingabe von „DD“ wird Spalte F ausgeblendet – genau wie in der folgenden Demo gezeigt. Dieser Artikel liefert Ihnen den passenden VBA-Code, um diese Aufgabe in Excel zu lösen.
Verwenden Sie VBA-Code, um Spalten in Echtzeit basierend auf Benutzereingaben aus- oder einzublenden
Verwenden Sie VBA-Code, um bestimmte Spalten basierend auf Benutzereingaben aus- oder einzublenden
Verwenden Sie VBA-Code, um Spalten in Echtzeit basierend auf Benutzereingaben aus- oder einzublenden
Um die Spalte angeben in Echtzeit basierend auf Eingabewerten auszublenden, wenden Sie bitte den folgenden VBA-Code an:
1. Klicken Sie auf dem Arbeitsblatt, auf dem Sie Spalten ausblenden möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü „Code anzeigen“ (siehe Screenshot).
2. Kopieren Sie im geöffneten Fenster „Microsoft Visual Basic for Applications“ den folgenden VBA-Code in das Fenster „Tabelle (Code)“.
VBA-Code: Spalten in Echtzeit basierend auf Benutzereingaben ausblenden
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby ExtendOffice
xcell = Range("K1").Value
Select Case xcell
Case "AA": Columns("A").EntireColumn.Hidden = False
Columns("A").EntireColumn.Hidden = True
Case "BB": Columns("B:C").EntireColumn.Hidden = False
Columns("B:C").EntireColumn.Hidden = True
Case "CC": Columns("D:E").EntireColumn.Hidden = False
Columns("D:E").EntireColumn.Hidden = True
Case "DD": Columns("F").EntireColumn.Hidden = False
Columns("F").EntireColumn.Hidden = True
Case Else
Columns("A:G").EntireColumn.Hidden = False
End Select
End Sub
- Fall „AA“: Columns(„A").EntireColumn.Hidden = False
- Columns(„A").EntireColumn.Hidden = True
3. Schließen Sie anschließend das Codefenster. Sobald Sie nun „AA“ in Zelle K1 eingeben und die Enter-Taste drücken, wird Spalte A ausgeblendet; bei der Eingabe von „BB“ und einem Druck auf Enter werden die Spalten B und C ausgeblendet – und so weiter. Geben Sie einen anderen Wert ein oder löschen Sie den Inhalt, erscheinen die zuvor ausgeblendeten Spalten sofort wieder, wie in der folgenden Demo gezeigt:
Verwenden Sie VBA-Code, um bestimmte Spalten basierend auf Benutzereingaben aus- oder einzublenden
In diesem Beispiel filtere ich einen Datenbereich basierend auf dem eingegebenen Produktnamen: Bei der Eingabe von „Hoodie“ wird ausschließlich die Hoodie-Information angezeigt und alle anderen Spalten sofort ausgeblendet; bei der Eingabe von „All“ werden hingegen alle Spalten wie in der folgenden Demo gezeigt.
1. Klicken Sie auf dem Arbeitsblatt, auf dem Sie Spalten ausblenden möchten, mit der rechten Maustaste auf die Blattregisterkarte und wählen Sie im Kontextmenü „Code anzeigen“ (siehe Screenshot).
2. Kopieren Sie im geöffneten Fenster „Microsoft Visual Basic for Applications“ den folgenden VBA-Code in das Fenster „Tabelle (Code)“.
VBA-Code: Spalten zum Filtern von Daten basierend auf Benutzereingaben aus- oder einblenden
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby ExtendOffice
Dim x As Variant, y As String
If Target.Address = "$K$1" Then
y = Target.Value
With Range("B1:H1")
Application.ScreenUpdating = False
.EntireColumn.Hidden = (y <> "All")
If y <> "All" Then
For Each x In .Cells
If x = y Then x.EntireColumn.Hidden = False
Next
End If
Application.ScreenUpdating = True
End With
End If
End Sub
3. Schließen Sie anschließend das Codefenster. Sobald Sie nun den Produktnamen in Zelle K1 eingeben, werden nur die zugehörigen Spalten angezeigt – alle anderen bleiben ausgeblendet. Geben Sie hingegen „All“ ein, erscheinen sämtliche Spalten wie in der folgenden Demo gezeigt:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins