Wie verstecke ich Zeilen automatisch, wenn leere Zellen in einer Spalte sind?
Wenn Sie über einen Datenbereich verfügen, in dem einige leere Zellen in einer Spalte ausgefüllt sind, möchten Sie jetzt die Zeilen, die die leeren Zellen in dieser Spalte enthalten, automatisch ausblenden. Gibt es gute Möglichkeiten, diesen Job in Excel schnell und einfach zu lösen?
Zeilen automatisch ausblenden, wenn leere Zellen in einer Spalte mit VBA-Code vorhanden sind
Zeilen automatisch ausblenden, wenn leere Zellen in einer Spalte mit VBA-Code vorhanden sind
Der folgende Code kann Ihnen helfen, alle Zeilen auszublenden, wenn leere Zellen in einer bestimmten Spalte gleichzeitig vorhanden sind. Wenn Sie den Zelleninhalt in dieser Spalte löschen, werden die Zeilen ebenfalls automatisch ausgeblendet. Bitte gehen Sie wie folgt vor:
1. Klicken Sie mit der rechten Maustaste auf die Registerkarte "Blatt", auf der Sie die Zeilen automatisch ausblenden möchten, wenn eine Spalte leere Zellen enthält, und wählen Sie dann Code anzeigen aus dem Kontextmenü in der herausgesprungenen Microsoft Visual Basic für Applikationen Fenster, bitte kopieren Sie den folgenden Code und fügen Sie ihn in das Feld ein Modul:
VBA-Code: Zeilen automatisch ausblenden, wenn leere 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
Note: Im obigen Code, A1: A20 ist die Datenliste, die die leeren Zellen enthält, die Sie automatisch ausblenden möchten.
2. Kehren Sie dann zum Arbeitsblatt zurück, und drücken Sie jetzt, wenn Sie auf eine Zelle doppelklicken und drücken Enter Schlüssel, die Zeilen, die leere Zellen in Spalte A enthalten, wurden sofort ausgeblendet. Wenn Sie den Zelleninhalt in den angegebenen Zellen in Spalte A löschen, werden die Zeilen automatisch ausgeblendet.
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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!