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

Wie filtere ich eine Liste und lösche die restlichen versteckten oder sichtbaren Zeilen in Excel?

Bei einer gefilterten Liste müssen Sie möglicherweise die ausgeblendeten oder sichtbaren Zeilen löschen, um nur die nützlichen Daten beizubehalten. In diesem Artikel zeigen wir Ihnen Methoden zum Löschen der restlichen versteckten oder sichtbaren Zeilen einer gefilterten Liste in Excel.

Löschen Sie versteckte Zeilen im aktiven Arbeitsblatt mit VBA-Code
Löschen Sie sichtbare Zeilen der gefilterten Liste, indem Sie alle sichtbaren Zellen auswählen
Löschen Sie mit Kutools for Excel einfach versteckte oder sichtbare Zeilen gefilterter Listen


Löschen Sie versteckte Zeilen im aktiven Arbeitsblatt mit VBA-Code

Dieser Abschnitt zeigt Ihnen VBA-Code zum Löschen versteckter Zeilen im aktiven Blatt. Bitte gehen Sie wie folgt vor.

1. Aktivieren Sie das Arbeitsblatt, das Sie zum Löschen ausgeblendeter Zeilen benötigen, und drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Fenster Microsoft Visual Basic für Applikationen auf Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.

VBA-Code: Löschen Sie versteckte Zeilen

Sub RemoveHiddenRows()
	Dim xRow As Range
	Dim xRg As Range
	Dim xRows As Range
	On Error Resume Next
	Set xRows = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
	If xRows Is Nothing Then Exit Sub
		For Each xRow In xRows.Columns(1).Cells
			If xRow.EntireRow.Hidden Then
				If xRg Is Nothing Then
					Set xRg = xRow
				Else
					Set xRg = Union(xRg, xRow)
				End If
			End If
		Next
		If Not xRg Is Nothing Then
			MsgBox xRg.Count & " hidden rows have been deleted", , "Kutools for Excel"
			xRg.EntireRow.Delete
		Else
			MsgBox "No hidden rows found", , "Kutools for Excel"
		End If
	End Sub

3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Wenn das aktive Blatt ausgeblendete Zeilen enthält, wird nach dem Ausführen des Codes ein Dialogfeld angezeigt, in dem Sie darüber informiert werden, wie viele ausgeblendete Zeilen gelöscht wurden. Drücke den OK Schaltfläche zum Löschen der ausgeblendeten Zeilen. Siehe Screenshot:

doc löschen rest 1

Andernfalls wird nach dem Ausführen des Codes das folgende Dialogfeld angezeigt.

doc löschen rest 1

Hinweis: Der obige VBA-Code kann nicht nur versteckte Zeilen der gefilterten Liste löschen, sondern auch versteckte Zeilen, die Sie zuvor manuell ausgeblendet haben.


Löschen Sie sichtbare Zeilen der gefilterten Liste, indem Sie alle sichtbaren Zellen auswählen

Gehen Sie wie folgt vor, um sichtbare Zeilen der gefilterten Liste zu löschen.

1. Wählen Sie alle herausgefilterten Zeilen aus und drücken Sie F5 Schlüssel zum Öffnen des Gehe zu Klicken Sie dann auf das Dialogfeld Spezielle Taste. Siehe Screenshot:

doc löschen rest 1

2. In dem Gehe zu Spezial Wählen Sie im Dialogfeld Nur sichtbare Zellen Option, und klicken Sie dann auf OK .

doc löschen rest 1

3. Nun sind alle sichtbaren Zeilen ausgewählt. Klicken Sie mit der rechten Maustaste auf die Auswahl, und klicken Sie dann auf Zeilen löschen.

doc löschen rest 1

Bisher werden alle sichtbaren Zeilen aus der gefilterten Liste gelöscht.


Löschen Sie mit Kutools for Excel einfach versteckte oder sichtbare Zeilen gefilterter Listen

Die beiden oben genannten Methoden sind möglicherweise nicht die gewünschten Lösungen für viele Excel-Benutzer. Hier stellen wir Ihnen ein praktisches Tool vor. Mit unserer Bandbreite an Versteckte (sichtbare) Zeilen und Spalten löschen Nutzen von Kutools for Excelkönnen Sie ausgeblendete Zeilen in ausgewählten Bereichen / Blättern, aktiven Blättern oder allen Arbeitsblättern in Excel einfach löschen.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Wenn Sie nur versteckte oder sichtbare Zeilen einer gefilterten Liste löschen möchten, wählen Sie den gefilterten Bereich manuell aus und klicken Sie dann auf Kutoolen > Löschen > Versteckte (sichtbare) Zeilen und Spalten löschen. Siehe Screenshot:

2. In dem Versteckte (sichtbare) Zeilen und Spalten löschen Dialogfeld, behalten Sie die Im ausgewählten Bereich ausgewählt in der Hinein sehen Dropdown-Liste (Sie können nach Bedarf andere Optionen auswählen), überprüfen Sie die Reihen Option in der Typ löschen Abschnitt und in der Detaillierter Typ Abschnitt, überprüfen Sichtbare Reihen or Versteckte Zeilen Option nach Bedarf. Und zum Schluss klicken Sie auf OK .

3. Daraufhin wird ein Dialogfeld angezeigt, in dem Sie erfahren, wie viele Zeilen gelöscht wurden. Klicken Sie auf OK .

  Wenn Sie eine kostenlose Testversion wünschen (30-Tag) dieses Dienstprogramms, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Löschen Sie versteckte oder sichtbare Zeilen der gefilterten Liste mit Kutools for Excel


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 (7)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Feedback zu: Das Makro zum Löschen versteckter Zeilen - dies dauert zu lange, um auf 900 Zeilen ausgeführt zu werden, um nützlich zu sein. 2+ Stunden auf einem OC'd Threadripper 1950X und läuft immer noch (musste die Aufgabe beenden). Gibt es eine Möglichkeit, es für die Verwendung mehrerer Kerne zu optimieren, oder ist dies eine VBA-Einschränkung?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Der Code wurde optimiert. Bitte versuchen Sie es. Danke für deinen Kommentar.

Unter RemoveHiddenRows()
Dim xFlag As Boolean
Dim xStr, xTemp als String
Dim xDiv, xMod As Long
Dim I, xCount, xRows As Long
Dim xRg, xCell, xDRg als Bereich
Dim xArr() als String
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = Falsch
Set xRg = Intersect(ActiveSheet.Range("A:A").EntireRow, ActiveSheet.UsedRange)
Wenn xRg nichts ist, dann beenden Sie Sub
xRows = xRg.Rows.Count
Setze xRg = xRg(1)
xFlag = True
xTemp = ""
xAnzahl = 0
Für I = 1 bis xRows
Setze xCell = xRg.Offset(I - 1, 0)
Do While xFlag
Wenn xCell.EntireRow.Hidden Then
xStr = xCell.Address
xFlag = Falsch
sonst
Gehe zu Ctn
End If
Loop
Wenn xCell.EntireRow.Hidden Then
xTemp = xStr & "," & xCell.Address
End If
Wenn Len(xTemp) > 171 Dann
xAnzahl = xAnzahl + 1
ReDim Preserve xArr(1 bis xCount)
xArr(xCount) = xStr
xStr = xCell.Address
sonst
xStr = xTemp
End If
Ctn:
Weiter
xAnzahl = xAnzahl + 1
ReDim Preserve xArr(1 bis xCount)
xArr(xCount) = xStr
Für I = xCount bis 1 Schritt -1
Wenn ich = 1 dann
xStr = Mid(xArr(I), InStr(xArr(I), ",") + 1, Len(xArr(I)) - InStr(xArr(I), ","))
sonst
xStr = xArr(I)
End If
Wenn xDRg dann nichts ist
Setze xDRg = Bereich(xStr)
sonst
Setze xDRg = Union(xDRg, Range(xStr))
End If
If (Len(xDRg.Address) >= 244) Or (xCount = 1) Then
xDRg.EntireRow.Delete
Setze xDRg = nichts
End If
Weiter
Application.EnableEvents = Wahr
Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Geil, danke! Werde dies bei meiner nächsten Gelegenheit/Bedarf überprüfen und antworten.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
VBA-Code zum Löschen versteckter Zeilen funktionierte perfekt ohne Fummelei. DANKE!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke für die Information. Dies war lehrreich. Bitte gibt es eine Möglichkeit, nach bestimmten Zahlen in Zeilen von bis zu 1 Million zu filtern und zu löschen? Kann der obige Code geändert werden, um dies zu tun?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo,
Entschuldigung, ich habe den Code nicht in so großen Zeilendaten getestet. Vielleicht können Sie eine Kopie Ihrer Daten erstellen und testen, ob der Code funktioniert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, dieser VBA-Code ist genial nützlich.
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