Wie kann man Zeilen mit leeren Zellen in einer Spalte in Excel automatisch ausblenden?
Wenn Sie in Excel ein Dataset mit leeren Zellen in einer Spalte haben, möchten Sie möglicherweise die Zeilen, die diese Leerstellen enthalten, automatisch ausblenden. In dieser Anleitung zeigen wir Ihnen, wie Sie Zeilen mit leeren Zellen mithilfe eines einfachen VBA-Codes automatisch ausblenden können, um Ihre Daten einfacher zu verwalten, ohne Zeilen manuell filtern oder ausblenden zu müssen.
Verwenden Sie VBA-Code, um Zeilen automatisch auszublenden, wenn leere Zellen in einer Spalte vorhanden sind
Der folgende Code kann Ihnen helfen, alle Zeilen mit leeren Zellen in einer bestimmten Spalte auf einmal auszublenden. Wenn Sie den Inhalt einer Zelle in dieser Spalte löschen, werden die Zeilen ebenfalls automatisch ausgeblendet. Gehen Sie wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf das Arbeitsblatt-Tab, in dem Sie Zeilen mit leeren Zellen in einer Spalte automatisch ausblenden möchten, und wählen Sie dann "Code anzeigen" aus dem Kontextmenü. Kopieren Sie im erscheinenden Fenster "Microsoft Visual Basic for Applications" den folgenden Code und fügen Sie ihn in das leere "Modul" ein:
VBA-Code: Automatisches Ausblenden von Zeilen bei leeren Zellen in einer Spalte:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Hinweis: Im obigen Code ist "A1:A20" der Datenbereich, der die leeren Zellen enthält, die Sie automatisch ausblenden möchten.
2. Gehen Sie nun zurück zum Arbeitsblatt. Wenn Sie auf eine beliebige Zelle doppelklicken und die Eingabetaste drücken, werden die Zeilen, die leere Zellen in Spalte A enthalten, sofort ausgeblendet. Zusätzlich werden die Zeilen automatisch ausgeblendet, wenn Sie den Inhalt einer Zelle im angegebenen Bereich von Spalte A löschen.
Beste Büroproduktivitätswerkzeuge
Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!