Verwenden der Tastatur
Wählen Sie alle ausgeblendeten Zeilen zum Löschen aus.
Drücken Sie Strg + 9.
Gehe zum Spezialkommando
Wählen Sie eine beliebige Zelle innerhalb des Bereichs aus, der ausgeblendete Zeilen enthält.
Wählen Sie im Menü „Startseite“ die Option „Suchen und Auswählen“> „Gehe zu Spezial“.
Wählen Sie die Option „Leerzeichen“.
Wählen Sie OK.
Rechtsklick.
Klicken Sie mit der rechten Maustaste auf eine der ausgewählten Zeilen und wählen Sie im Kontextmenü die Option „Löschen“.
Entfernen Sie ganze ausgeblendete Zeilen mithilfe des Dialogfelds „Suchen und Ersetzen“
Wählen Sie eine beliebige Zelle aus, die ausgeblendete Zeilen enthält.
Drücken Sie die Tastenkombination Strg + H, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
Klicken Sie auf die Schaltfläche „Optionen“>> und überprüfen Sie, ob im Dropdown-Menü „Suchen in“ die Option „Gesamte Arbeitsmappe“ angezeigt wird. Wenn nicht, wählen Sie es aus.
Geben Sie ^~ in das Textfeld Suchen nach ein.
Lassen Sie das Textfeld „Ersetzen durch“ leer.
Klicken Sie auf Alle finden.
Wählen Sie „Alle“ aus.
Klicken Sie auf die Schaltfläche „Alle ersetzen“.
UDF-Methode zum Löschen ausgeblendeter Zeilen
Wählen Sie eine beliebige Zelle aus.
Wählen Sie auf der Registerkarte „Formeln“ die Option „Namen definieren“ aus.
Geben Sie „Delete_Rows“ in das Textfeld „Name“ ein.
Geben Sie im Textfeld „Bezieht sich auf“ die folgende Formel ein.
`Öffentliche Funktion Delete_Rows() As Boolean Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If Not ws.Visible Then Application.DisplayAlerts =False ws.Visible =True ws.Delete 'Application.DisplayAlerts =True ElseIf ws.Visible =xlSheetVisible Dann ist Next ws Delete_Rows =True End Function`
Klicken Sie auf OK.
Wählen Sie die sichtbaren Zeilen aus, die keine ausgeblendeten Zeilen enthalten, und klicken Sie auf F5, um das Dialogfeld „Gehe zu“ aufzurufen.
Wählen Sie in der Dropdown-Liste „Spezial“ die Option „Formeln“ aus und klicken Sie auf „OK“.
Drücken Sie Strg + C.
Wählen Sie eine beliebige Zelle aus.
Drücken Sie Strg + H, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.
Klicken Sie auf die Schaltfläche Optionen>>.
Wählen Sie „Nach Werten“ aus der Dropdown-Liste „Suchen“ aus.
Klicken Sie auf OK.
Klicken Sie mit der rechten Maustaste auf die aktive Zelle und wählen Sie im Kontextmenü die Option „Inhalte einfügen“.
Wählen Sie unter Einfügen die Option Formeln aus.
Klicken Sie auf OK.
Klicken Sie auf die Schaltfläche „Alle ersetzen“.
Speichern Sie Ihre Arbeitsmappe unter einem anderen Dateinamen, um eine Sicherung beizubehalten.
