VBA zum Ausblenden von Zeilen in Excel (14 Methoden)

Hugh West

02-06-2023 Makros & Excel VBA
  • Teile Das
Hugh West

Manchmal müssen wir bestimmte Zeilen ausblenden, wenn wir einen großen Datensatz in Excel verwenden, um die Lesbarkeit zu verbessern. Die Implementierung VBA-Makro ist die effektivste, schnellste und sicherste Methode, um jede Operation in Excel auszuführen. In diesem Artikel zeigen wir Ihnen, wie Sie Zeilen in Excel nach verschiedenen Kriterien ausblenden, indem Sie das VBA-Makro verwenden.

Arbeitsbuch herunterladen

Sie können die kostenlose Excel-Arbeitsmappe für die Praxis hier herunterladen.

Zeilen mit VBA ausblenden.xlsm

14 Methoden mit VBA zum Ausblenden von Zeilen in Excel

In diesem Abschnitt werden wir 12 verschiedene Methoden mit VBA zu Zeilen ausblenden Das Beispiel, das wir im gesamten Artikel verwenden werden, ist unten dargestellt.

1. einbetten von VBA zum Ausblenden einer einzelnen Zeile in Excel

Wenn Sie möchten, dass eine einzelne Zeile ausblenden mit VBA Code, dann folgen Sie den unten beschriebenen Schritten. In unserem Fall werden wir Zeile Nummer 5 ausblenden ( Nachname ) aus unserem Datensatz.

Schritte:

  • Presse Alt + F11 auf Ihrer Tastatur oder gehen Sie auf die Registerkarte Entwickler -> Visual Basic zu öffnen Visual Basic-Editor .

  • Klicken Sie im Pop-up-Code-Fenster in der Menüleiste auf Einfügen -> Modul .

  • Kopieren Sie den folgenden Code und fügen Sie ihn in das Codefenster ein. 
 Sub HideSingleRow() Worksheets("Single").Range("5:5").EntireRow.Hidden = True End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • Arbeitsblätter("Single") = Einstellen der Arbeitsblatt Name.
  • Bereich("5:5") = Pass Zeile Nummer 5 innerhalb der Bereich Methode.

  • Presse F5 auf Ihrer Tastatur oder wählen Sie in der Menüleiste Run -> Run Sub/UserForm Sie können auch einfach auf die Schaltfläche kleines Play-Symbol in der Untermenüleiste, um das Makro auszuführen.

Beachten Sie das folgende Bild, Zeile Nummer 5 wird nach der Ausführung der VBA Code.

Lesen Sie mehr: Formel zum Ausblenden von Zeilen in Excel (7 Methoden)

2. ein Makro zum Ausblenden zusammenhängender Zeilen in Excel einfügen

Sie haben gelernt, wie man eine einzelne Zeile ausblendet mit VBA Aber nehmen wir an, Sie wollen einen Bereich von Zeilen ausblenden die sind Angrenzend Das können Sie auch tun mit VBA In Excel werden wir ausblenden Zeilen Nummer 5 bis 7 aus unserem oben gezeigten Datensatz.

Schritte:

  • Auf die gleiche Weise wie zuvor, öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideContiguousRows() Worksheets("Contiguous").Range("5:7").EntireRow.Hidden = True End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • Arbeitsblätter("Zusammenhängend") = Einstellen der Arbeitsblatt Name.
  • Bereich("5:7") = Pass Zeile Nummer 5 bis 7 innerhalb der Bereich Methode.

  • ausführen. diesen Code und sehen Sie in der folgenden Abbildung, dass Reihen 5 bis 7 sind jetzt verborgen.

Lesen Sie mehr: Ausblenden und Einblenden von Zeilen in Excel (6 einfachste Methoden)

3. ein Makro einbetten, um nicht zusammenhängende Zeilen zu trennen

Diesmal werden Sie lernen, wie man Zeilen ausblenden in Excel, die nicht zusammenhängend mit VBA Mit unserem Datensatz wird der Code für ausblenden Reihen 5, 6, 8 und 9 sind unten aufgeführt.

Schritte:

  • Wie bereits erwähnt, sind offene Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideNonContiguousRows() Worksheets("Non-Contiguous").Range("5:6, 8:9").EntireRow.Hidden = True End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • Arbeitsblätter("Nicht zusammenhängend") = Einstellen der Arbeitsblatt Name.
  • Bereich("5:6, 8:9") = Pass Zeile Nummer 5 bis 6 und 8 bis 9 innerhalb der Bereich Methode.

  • ausführen. dieses Stück Code und sehen, dass Reihen 5 bis 6 und 8 bis 9 sind in der folgenden Abbildung verborgen.

Lesen Sie mehr: Wie man Zeilen in Excel ausblendet (6 effektive Methoden)

4 Makro zum Ausblenden aller Zeilen, die Texte enthalten, in Excel

Wenn Sie möchten, dass alle Zeilen ausblenden, die Text enthalten Werte, dann befolgen Sie die unten aufgeführten Schritte.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideAllRowsContainsText() LastRow = 1000 'Angenommen, es gibt 1000 Zeilen im Datensatz For i = 1 To LastRow 'Schleife durch jede Zeile und Prüfung auf erforderliche Bedingung 'Um alle Zeilen mit den Textdaten auszublenden If IsNumeric(Range("C" & i)) = False Then Rows(i).EntireRow.Hidden = True Next End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • IsNumeric(Bereich("C" & i)) = Die Daten in unserem Datensatz beginnen mit Spalte C, also haben wir C innerhalb der Bereich Methode.

  • ausführen. diesen Code und Sie werden feststellen alle Zeilen die waren Text enthaltend Werte sind jetzt ausgeblendet.

Lesen Sie mehr: Wie man mehrere Zeilen in Excel einblenden kann (9 Methoden)

5 Makro zum Verbergen aller Zeilen, die Zahlen in Excel enthalten

Und wenn Sie sich verstecken wollen alle Zeilen, die numerische Werte enthalten mit VBA Code, dann folgen Sie den unten angegebenen Schritten.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideAllRowsContainsNumbers() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und prüfen auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten in Zeile 4 beginnen 'Um alle Zeilen mit den numerischen Daten auszublenden If IsNumeric(Range("C" & i)) = True Then Rows(i).EntireRow.Hidden = True Next End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • IsNumeric(Bereich("C" & i)) = Die Daten in unserem Datensatz beginnen mit Spalte C, also haben wir C innerhalb der Bereich Methode.

  • ausführen. diesen Code und beachten Sie, dass alle Zeilen die waren mit numerischen Werten sind jetzt ausgeblendet.

Lesen Sie mehr: Doppelte Zeilen basierend auf einer Spalte in Excel ausblenden (4 Methoden)

6 Makro zum Ausblenden von Zeilen, die Null (0) enthalten, in Excel

Angenommen, Sie möchten nur die Zeilen einer bestimmten Spalte ausblenden, die 0 (Null) halten Sehen Sie sich den folgenden Datensatz an, in dem die E-Spalte hält 0 in Zeile 7 und 82 in Reihe 10 Wir werden lernen, wie man nur die Zeile ausblenden, in der 0 steht ( Zeile 7 ) mit VBA in Excel.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsZero() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und prüfen auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten in Zeile 4 beginnen 'Um die Zeile mit 0 in der Spalte E auszublenden If Range("E" & i) = 0 Then Rows(i).EntireRow.Hidden = True Next End Sub

Ihr Code ist nun einsatzbereit.

  • Laufen lassen diesen Code und stellen Sie fest, dass die Zeile ( Zeile 7 ), die Folgendes enthielten 0 in Spalte E ist jetzt ausgeblendet, während Reihe 10 der die 82 ist nicht versteckt.

Lesen Sie mehr: Leerzeilen in Excel VBA ausblenden (4 nützliche Methoden)

7. implementieren Sie ein Makro zum Ausblenden von Zeilen mit negativen Werten in Excel

Genauso wie Sie Zeilen ausblenden können, die Nullen aus derselben Spalte enthalten, können Sie Zeilen ausblenden, die negative Werte enthalten Mit dem unten gezeigten Datensatz, bei dem Spalte E sowohl negative als auch positive Werte enthält, sehen wir den Code, der nur den negativen Wert ausblendet.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsNegative() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und Prüfung auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten mit Zeile 4 beginnen 'Um die Zeile mit negativen Werten in der Spalte E auszublenden If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) <0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Ihr Code ist nun einsatzbereit.

  • ausführen. diesen Code und beachten Sie, dass Zeile 7 die eine negativer Wert (-10) in Spalte E ist jetzt ausgeblendet, während Reihe 10 der die 82 ist nicht versteckt.

8 VBA einbetten, um Zeilen mit positiven Werten in Excel zu verbergen

Diesmal mit dem unten angegebenen Datensatz, bei dem Spalte E beide Nullen als positive Werte enthält, sehen wir die VBA Code, der verbirgt nur den positiven Teil .

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsPositive() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und prüfen auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten mit Zeile 4 beginnen 'Um die Zeile mit positiven Werten in der Spalte E auszublenden If IsNumeric(Range("E" & i)) = True Then If Range("E" & i)> 0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Ihr Code ist nun einsatzbereit.

  • ausführen. diesen Code und beachten Sie, dass Zeile 7 die eine positiver Wert (55) in Spalte E ist jetzt ausgeblendet, während Reihe 10 der die 0 ist nicht versteckt.

Lesen Sie mehr: VBA zum Ausblenden von Zeilen basierend auf dem Zellwert in Excel (14 Beispiele)

9 Makro zum Ausblenden von Zeilen, die ungerade Zahlen enthalten, in Excel

Sie können Zeilen mit ungeraden Zahlen ausblenden In dem Beispiel, das wir zu Beginn dieses Artikels gezeigt haben, Spalte E hält sowohl ungerade als auch gerade Zahlen in Zeilen 7 und 10 Wir lernen den Code von Ausblenden der Zeile das hält ungerade Zahlen nur.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsOdd() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und Prüfung auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten in Zeile 4 beginnen 'Um die Zeile mit positiven Werten in der Spalte E auszublenden If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) Mod 2 = 1 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Ihr Code ist nun einsatzbereit.

  • ausführen. dieses Stück Code und sehen, dass nur Zeile 7 die einen ungerade Zahl (55) in Spalte E ist jetzt ausgeblendet, während Reihe 10 die einen gerade Zahl (82) ist nicht versteckt.

10 VBA zum Ausblenden von Zeilen mit geraden Zahlen in Excel

In ähnlicher Weise können Sie Zeilen mit geraden Zahlen ausblenden In dem Beispiel, das wir zu Beginn dieses Artikels gezeigt haben, Spalte F hält sowohl ungerade als auch gerade Zahlen in Zeilen 7 und 10 Wir lernen den Code von Ausblenden der Zeile das hält gerade Zahlen nur.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsEven() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und Prüfung auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten in Zeile 4 beginnen 'Um die Zeile mit positiven Werten in der Spalte F auszublenden If IsNumeric(Range("F" & i)) = True Then If Range("F" & i) Mod 2 = 0 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Ihr Code ist nun einsatzbereit.

  • ausführen. diesen Code und sehen, dass nur Zeile 7 die ein gerade Zahl (100) in Spalte F ist nun ausgeblendet, während Reihe 10 die einen ungerade Zahl (75) ist nicht versteckt.

Lesen Sie mehr: Excel VBA: Alle Zeilen in Excel einblenden (5 praktische Beispiele)

11 Makro zum Ausblenden von Zeilen, die größer als eine bestimmte Bedingung sind, einfügen

Sie können Zeilen ausblenden, die größer sind als einen bestimmten Wert mit VBA Nehmen wir an, Sie möchten die Zeilen aus der Tabelle ausblenden. Spalte E wobei der Wert mehr als 80 Hier ist, wie man das macht:

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsGreater() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und prüfen auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten mit Zeile 4 beginnen 'Um die Zeile mit positiven Werten in der Spalte E auszublenden If IsNumeric(Range("E" & i)) = True Then If Range("E" & i)> 80 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Ihr Code ist nun einsatzbereit.

  • ausführen. diesen Code und sehen, dass nur Reihe 10 die Folgendes enthielt 82 (der größer als 80 ist) in Spalte E ist jetzt ausgeblendet, während Zeile 7 der die 55 ist nicht versteckt.

Lesen Sie mehr: Ausblenden von Zeilen basierend auf einem Zellwert mit bedingter Formatierung in Excel

12. ein Makro einbetten, um Zeilen abzudecken, die kleiner als eine bestimmte Bedingung in Excel sind

Sie können auch Zeilen ausblenden, die kleiner sind als einen bestimmten Wert mit VBA Nehmen wir an, Sie möchten die Zeilen aus der Tabelle ausblenden. Spalte E wobei der Wert weniger als 80 Hier ist, wie man das macht:

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowContainsLess() LastRow = 1000 'Nehmen wir an, es gibt 1000 Zeilen im Datensatz For i = 4 To LastRow 'Schleife durch jede Zeile und Prüfung auf die erforderliche Bedingung 'Wir setzen i = 4, weil unsere Daten mit Zeile 4 beginnen 'Um die Zeile mit positiven Werten in der Spalte E auszublenden If IsNumeric(Range("E" & i)) = True Then If Range("E" & i) <80 ThenRows(i).EntireRow.Hidden = True End If Next End Sub

Ihr Code ist nun einsatzbereit.

  • ausführen. diesen Code und sehen, dass nur Zeile 7 die Folgendes enthielt 55 (die weniger als 80 beträgt) in Spalte E ist nun ausgeblendet, während Reihe 10 das ist Tragen 82 ist nicht versteckt.

13 Zeilen auf der Grundlage von Zelltextwerten mit Makro verbergen

Angenommen, Sie möchten eine Zeile ausblenden, die einen bestimmten Text enthält In unserem Fall geben wir Ihnen ein Beispiel mit einer Zeile, die das Wort "" enthält. Chemie ", Reihe 6 und Ihnen den Code zum Ausblenden dieser Zeile zur Verfügung stellen.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowCellTextValue() StartRow = 4 LastRow = 10 iCol = 4 For i = StartRow To LastRow If Cells(i, iCol).Value "Chemie" Then Cells(i, iCol).EntireRow.Hidden = False Else Cells(i, iCol).EntireRow.Hidden = True End If Next i End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • StartRow = 4 -> Erste Reihe des Datensatzes.
  • LetzteZeile = 10 -> Letzte Zeile des Datensatzes.
  • iCol = 4 -> Die Spaltenadresse dass enthält den Text Wert.

  • ausführen. diesen Code und beachten Sie, dass Zeile Nummer 6 das aus dem Wort " Chemie "ist ausgeblendet.

14 Makro zum Ausblenden von Zeilen basierend auf einem numerischen Zellwert in Excel

Zuvor haben Sie gesehen, wie man eine Zeile basierend auf einem Zellentextwert ausblendet, dieses Mal werden Sie lernen, wie man das macht, wenn die Wert ist numerisch In unserem Fall geben wir Ihnen ein Beispiel mit einer Zeile, die den numerischen Wert "" enthält. 87 ", Zeile 7 und Ihnen den Code zum Ausblenden dieser Zeile zur Verfügung stellen.

Schritte:

  • Öffnen Sie Visual Basic-Editor von der Entwickler Registerkarte und einfügen. a Modul im Code-Fenster.
  • Kopieren Sie im Codefenster den folgenden Code und fügen Sie ihn ein. 
 Sub HideRowCellNumValue() StartRow = 4 LastRow = 10 iCol = 4 For i = StartRow To LastRow If Cells(i, iCol).Value "87" Then Cells(i, iCol).EntireRow.Hidden = False Else Cells(i, iCol).EntireRow.Hidden = True End If Next i End Sub

Ihr Code ist nun einsatzbereit.

Hier,

  • StartRow = 4 -> Erste Reihe des Datensatzes.
  • LetzteZeile = 10 -> Letzte Zeile des Datensatzes.
  • iCol = 4 -> Die Spaltenadresse dass enthält den Text Wert.

  • ausführen. diesen Code und beachten Sie, dass Zeile Nummer 7 die aus dem numerischen Wert " 87 "ist ausgeblendet.

Lesen Sie mehr: Ausblenden von Zeilen basierend auf Zellwert in Excel (5 Methoden)

Schlussfolgerung

Dieser Artikel zeigt Ihnen, wie Sie Zeilen ausblenden in Excel mit VBA Ich hoffe, dass dieser Artikel für Sie von Nutzen war. Wenn Sie Fragen zum Thema haben, können Sie sich gerne an mich wenden.

Vorherigen Post Zellen mit gleichem Wert in Excel kombinieren (3 einfache Methoden)
Nächster Beitrag Hinzufügen von Blättern mit Namen in Excel VBA (6 einfache Möglichkeiten)

Hugh West ist ein äußerst erfahrener Excel-Trainer und -Analyst mit über 10 Jahren Erfahrung in der Branche. Er verfügt über einen Bachelor-Abschluss in Rechnungswesen und Finanzen sowie einen Master-Abschluss in Betriebswirtschaft. Hugh hat eine Leidenschaft für das Unterrichten und hat einen einzigartigen Lehransatz entwickelt, der leicht zu befolgen und zu verstehen ist. Seine Expertenkenntnisse in Excel haben Tausenden von Studenten und Berufstätigen auf der ganzen Welt geholfen, ihre Fähigkeiten zu verbessern und in ihrer Karriere herausragende Leistungen zu erbringen. Über seinen Blog teilt Hugh sein Wissen mit der Welt und bietet kostenlose Excel-Tutorials und Online-Schulungen an, um Einzelpersonen und Unternehmen dabei zu helfen, ihr volles Potenzial auszuschöpfen.