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

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


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

doc Zeilen automatisch ausblenden 1

Hinweis: 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 Weiter 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.

doc Zeilen automatisch ausblenden 2

 


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 (32)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich benutze Excel 2016 und es funktioniert nicht. Ich erhalte eine Sintax-Fehlermeldung. kannst du helfen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Ameise,

Der obige Code funktioniert gut in meinem Excel 2016, haben Sie den Zellbezug im Code nach Bedarf geändert?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich erhalte einen Laufzeitfehler ´13´:



Typenkonflikt



Jemand der helfen kann???
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kann ich verhindern, dass dieses Makro automatisch ausgeführt wird, nachdem ich die Eingabetaste gedrückt habe? Könnte ich es an eine Schaltfläche anhängen, um die Zellen nur auszublenden, wenn ich klicke?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hat das schon mal jemand herausgefunden? Auch ich möchte es wissen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
hat jemand schon die antwort?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
gleiche frage hier
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Leute,
Um die Zeilen auszublenden, in denen eine bestimmte Spalte leere Zellen enthält, gehen Sie bitte wie folgt vor:
Zuerst sollten Sie eine Befehlsschaltfläche von der Registerkarte Entwickler einfügen.
Und wenden Sie dann den folgenden VBA-Code für die Befehlsschaltfläche an (Hinweis: Bitte ändern Sie die Zellreferenz a1: a20 in Ihre eigene)

Private Sub-Befehlsschaltfläche1_Click ()
Dim rng As Range, x As Range
Setze rng = Range("a1:a20")
Application.ScreenUpdating = False
Für jedes x In rng
Wenn Len(x.Text) = 0 dann
x.EntireRow.Hidden = True
sonst
x.EntireRow.Hidden = False
End If
Nächstes x
Application.ScreenUpdating = True
End Sub

Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
wie man Zeilen automatisch ausblendet, wenn leere Zellen in 2 verschiedenen Spalten mit VBA-Code
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, salpe,
Um die Zeilen automatisch auszublenden, wenn leere Zellen in 2 verschiedenen Spalten vorhanden sind, wenden Sie bitte den folgenden Code an:

Private Sub Worksheet_Change (ByVal-Ziel als Bereich)
Dim xRg, xCell als Bereich
Dim xRgs, xRgArea als Bereich
Setze xRgs = Range("A1:A22,D1:D22")
Application.ScreenUpdating = False
Bei Fehler GoTo Ctn
Für jede xRgArea in xRgs.Areas
Debug.Print xRgArea.Address
Für jedes xRg in xRgArea.Columns
Für jede xCell in xRg.Rows
Wenn xCell.Value = "" Dann
xCell.EntireRow.Hidden = True
Gehe zu Ctn
ElseIf Not xCell.EntireRow.Hidden Then
xCell.EntireRow.Hidden = False
End If
Ctn:
Weiter
Weiter
Weiter
Application.ScreenUpdating = True
End Sub

Sie können die Zellbezüge nach Bedarf ändern.
Versuch es bitte!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
بسم الله وجزاكم الله خيرا هذا الكود رائع ولكن حين قمت بتطبيق كود حذف حذف ا ا ا ا فج & ف Bund لريقة طولة حذف جدا فماeste لريقة ط ط sich حذف حذف جدا فماeste لريقة طولة جدا فماeste لريقة طولة جدا فماeste لريقة طولة جدا فماeste لريقة طولة جدا فماeste لريقة طولة جدا فماeste لريقة طويsal ة ج جدا فماeste طolog
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte wissen, ob der Code funktioniert, wenn die Zelle als Ergebnis von Formel leer ist?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo ACHINTA,
Der obige VBA-Code wird als Ergebnis der Formel auch auf die leeren Zellen angewendet, Sie könnten es versuchen, danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Die Formel funktioniert, um Zellen basierend auf Informationen zu Beginn auszublenden, zeigt Zellen jedoch nicht wieder an, wenn sich ihr Inhalt ändert. Ich möchte, dass alle neuen Zellen angezeigt werden, die mit Informationen gefüllt wurden (was über eine Zellsuche erfolgt). Wie mache ich das?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Bom dia, esta é minha necessidade também.

Preciso ocultar e quando a célula for preenchida (uso uma fórmula que preenche a mesma se houver valor em outra planilha) seja reexibida a linha novamente de forma automática.

Dankbar.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ich möchte, ist so etwas, um im aktiven Blatt zu arbeiten:

Wenn Zellen D2:D55 = ""
Dann Hide.EntireRow

Wenn Zellen D2:D55 = "hat einen beliebigen Wert"
Dann Show.EntireRow

Wie?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, Kacha, Sie müssen nur die Zellreferenz im Code wie folgt in Ihren eigenen Zellbereich ändern: Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg als Bereich
Application.ScreenUpdating = False
Für jedes xRg im Bereich ("D2:D55")
Wenn xRg.Wert = "" Dann
xRg.EntireRow.Hidden = True

sonst
xRg.EntireRow.Hidden = False
End If
Nächstes xRg
Application.ScreenUpdating = True
End SubDenken Sie nach dem Einfügen des Codes daran, auf eine beliebige Zelle zu doppelklicken und die Eingabetaste zu drücken, damit der Code wirksam wird.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Was ist der einfachste Weg, um das automatische Ausblenden rückgängig zu machen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, mình có dùng 2 code trong 1 file excel (1 code là của bạn) với mục đích in ra những bản riêng biệt và không bị thừa dòng trống. Khi mình ấn in từng bản thì ok nhưng nếu in 1 loạt thì Code Hide không có tác dụng, bạn xem giúp mình với nhé, mình cảm ơn!

Unter PRINT_PRINT()
Dim rng As Range, x As Range
Setze rng = Range("a16:a23")
Application.ScreenUpdating = False
Für jedes x In rng
Wenn Len(x.Text) = 0 dann
x.EntireRow.Hidden = True
sonst
x.EntireRow.Hidden = False
End If
Nächstes x
Application.ScreenUpdating = True


Dim p1, p2, i&
p1 = Blatt1.Bereich("O1").Wert
p2 = Blatt1.Bereich("O2").Wert
If IsNumeric(p1) = False Or IsNumeric(p2) = False Then
tb = MsgBox("Also Code phai la so.", , "Thông báo")
Exit Sub
End If
Wenn p1 > p2 Dann
tb = MsgBox("So code sau phai >= also code truoc.", , "Thông báo")
Exit Sub
End If
Wenn p1 < 1 oder p2 < 1 dann
tb = MsgBox("So code phai >= 1.", , "Thông báo")
Exit Sub
End If
Wenn p1 <= p2 Dann
Für i = p1 bis p2
Sheet1.Range("M2").Value = i
Sheet1.PrintOut
Weiter
End If
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hola,Necesito crear una macro que me oculte una columna.Sería así: en la primera fila poner un 1 a las columnas que no quiero ocultar y no poner ningún valor a las columnas que quiero ocultar. Estoy haciendo el siguiente código, pero no se en que fallo:
Sub OcultarColumnaSin1()
Application.ScreenUpdating = False
Für jeden Rango in Spalten
Wenn Rango = "" Dann
Rango.EntireColumn.Hidden = True
sonst
Rango.EntireColumn.Hidden = False
End If
Nächste Rango
Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das funktioniert hervorragend für mich. Es blendet die Zeilen aus und öffnet sie, wenn sich meine Werte basierend auf Formeln ändern. Die Frage, die ich habe, ist, dass mein Blatt 104 Zeilen lang ist. Jedes Mal, wenn ich auf eine Zelle klicke, ruckelt es ein bisschen. Gibt es eine Möglichkeit, den Übergang zu beschleunigen, wenn er aktiviert ist? Oder ist es mein Computer? Danke!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich möchte Zeilen automatisch ausblenden, wenn Spalte E leer oder 0 ist
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn der Wert in Spalte E leer oder 0 ist, möchte ich, dass die Zeile automatisch ausgeblendet wird. Wenn sich der Wert in E auf etwas anderes als leer oder 0 ändert, möchte ich, dass es angezeigt wird. Der Bericht umfasst 1500 Zeilen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Cathy,
Um die Zeilen automatisch basierend auf leeren Zellen oder 0-Werten auszublenden, verwenden Sie bitte den folgenden VBA-Code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xRg As Range
    Application.ScreenUpdating = False
        For Each xRg In Range("E1:E1500")
            If (xRg.Value = "") Or (xRg.Value = "0") Then
                xRg.EntireRow.Hidden = True
            Else
                xRg.EntireRow.Hidden = False
            End If
        Next xRg
    Application.ScreenUpdating = True
End Sub


Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wie verstecke ich eine Zeile, die ein Kontrollkästchen enthält?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Schweta

Um Zeilen mit Kontrollkästchen auszublenden, kann Ihnen der folgende Artikel einen Gefallen tun:
Wie kann man das Kontrollkästchen ausblenden, wenn die Zeile in Excel ausgeblendet ist?

Bitte versuchen Sie es, wenn Sie noch weitere Fragen haben, kommentieren Sie bitte hier.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Beim Ausführen des Codes in Office 2013/2019/2021 funktioniert es, dauert aber zu lange (nur 95 Zeilen zum Ausblenden).
Wie kann man das beschleunigen?
Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Asaf,
Der Code funktioniert gut in meiner Excel-Datei, könnten Sie Ihr Anhangs-Workbook hier hochladen, wenn es Ihnen nichts ausmacht? Damit wir helfen können, das Problem zu überprüfen.

Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
apakah ada rumus lain?, saya berharap baris kosong itu akan terhapus saat mencetak file menjadi PDF tapi tampilan di excelnya tetap
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Nurjanah
Um Ihr Problem zu lösen, sollten Sie zuerst die leeren Zeilen ausblenden und dann die Daten drucken, nachdem Sie die Daten gedruckt haben, müssen Sie die leeren Zeilen wieder einblenden. Bitte gehen Sie so vor:
1. Wenden Sie diese Formel an: =COUNTA(A2:E2) neben Ihren Daten, siehe Screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-1.png
2. Filtern Sie dann die neue leere Hilfsspalte, blenden Sie alle 0-Wert-Zeilen aus, siehe Screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-hide-blanks-2.png
3. Und dann sollten Sie die neue leere Spalte ausblenden und die Daten drucken, nachdem Sie das Arbeitsblatt gedruckt haben, heben Sie bitte den Filter auf, um die leeren Zeilen nach Bedarf einzublenden.
Bitte versuchen Sie es, ich hoffe, es kann Ihnen helfen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich habe Probleme mit der "Automatisierung" des Makros. Ich suche nach einer Möglichkeit, wie der Code als automatisierter Prozess funktioniert, ohne dass das Makro "manuell" ausgeführt werden muss. Ich habe meine eigene Variante Ihres Codes verwendet, weil ich Probleme bei der Verwendung Ihres Codes gefunden habe. Das ist meine Variante:

Sub HideRows()
Dim xRg als Bereich
Application.ScreenUpdating = False
Für jedes xRg im Bereich ("A3:A800")
Wenn (xRg.Wert = "") Dann
xRg.EntireRow.Hidden = True
sonst
xRg.EntireRow.Hidden = False
End If
Nächstes xRg
Application.ScreenUpdating = True
End Sub

Ich versuche, eine Tabelle zu erstellen, die ständig wechselnde Werte erfordert und daher einen echten "automatisierten" Prozess erfordern würde. Ich bin relativ neu in VBA und wenn Ihr Code meine Anforderungen tatsächlich bereits erfüllt, würden Sie mir helfen/beibringen, ihn in VBA anzuwenden? Danke.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Vian
Tatsächlich kann der Code in unserem Artikel automatisch ausgeführt werden.
Sie müssen den Code kopieren und in das Codemodul des aktuellen Arbeitsblatts einfügen, dann zum Arbeitsblatt zurückkehren, auf eine beliebige Zelle doppelklicken und drücken Weiter Taste wird die Zeile mit der leeren Zelle direkt ausgeblendet.

Bitte befolgen Sie Schritt für Schritt die Methode in diesem Artikel, ich hoffe, sie kann Ihnen helfen!
Vielen Dank!
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