Wie kann man gleiche Zeilen oder Bereiche über mehrere Blätter in Excel löschen?

Dieser Artikel empfiehlt zwei Methoden, um identische Zeilen oder Bereiche gleichzeitig über mehrere Blätter in Excel zu löschen. Bitte folgen Sie den nachstehenden Schritten.

Löschen gleicher Zeilen oder Bereiche über mehrere Blätter durch Gruppieren aller Blätter
Löschen gleicher Zeilen oder Bereiche über mehrere Blätter mit VBA-Codes

Löschen gleicher Zeilen oder Bereiche über mehrere Blätter durch Gruppieren aller Blätter

Es ist einfach, alle Arbeitsblätter zu gruppieren und dann identische Zeilen oder Bereiche aus diesen Arbeitsblättern gleichzeitig zu löschen.

1. Klicken Sie mit der rechten Maustaste auf eine beliebige Blattregisterkarte im aktuellen Arbeitsbuch und klicken Sie dann im Kontextmenü auf Alle Blätter auswählen.

2. Nun sind alle Arbeitsblätter ausgewählt. Wenn Sie bestimmte Zeilen oder Bereiche in einem Arbeitsblatt löschen, werden die gleichen Zeilen oder Bereiche in anderen Arbeitsblättern ebenfalls gelöscht.

3. Nachdem Sie Zeilen oder Bereiche über alle Blätter hinweg gelöscht haben, klicken Sie mit der rechten Maustaste auf eine Blattregisterkarte und wählen Sie dann Blätter aufheben aus dem Kontextmenü, um alle Arbeitsblätter zu trennen.

Löschen gleicher Zeilen oder Bereiche über mehrere Blätter mit VBA-Codes

Neben der oben genannten Methode können Sie die folgenden VBA-Codes ausführen, um identische Zeilen oder Bereiche über mehrere Arbeitsblätter zu löschen.

Löschen gleicher Zeilen über mehrere Blätter

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

Sub bleh()
    Dim xWs As Worksheet
    Set xWs = ActiveSheet
    ThisWorkbook.Worksheets.Select
    Rows("4:5").Select
    Selection.Delete
    xWs.Select
End Sub

Hinweis: Im VBA-Code bedeutet 4:5, dass die Zeilen 4 und 5 über mehrere Arbeitsblätter im aktuellen Arbeitsbuch gelöscht werden. Sie können sie in die benötigten Zeilen ändern.

3. Drücken Sie die Taste F5, um den Code auszuführen, und die angegebenen Zeilen werden sofort aus allen Blättern im aktuellen Arbeitsbuch gelöscht.

Löschen gleicher Bereiche über mehrere Blätter

Um gleiche Bereiche über mehrere Blätter zu löschen, können Sie den folgenden VBA-Code ausprobieren.

Private Sub CommandButton2_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xWs As Worksheet
    On Error Resume Next
    Set xWs = ActiveSheet
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xRg.ClearContents
    ThisWorkbook.Worksheets.Select
    ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
    xWs.Select
End Sub

Nachdem Sie den VBA-Code in das Modul kopiert und eingefügt haben, drücken Sie die Taste F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld von Kutools für Excel den Bereich aus, den Sie über mehrere Blätter hinweg löschen möchten, und klicken Sie dann auf die Schaltfläche OK.

Jetzt werden die Zellwerte in diesem spezifischen Bereich sofort aus allen Blättern im aktuellen Arbeitsbuch gelöscht.

Verwandte Artikel:

• Wie kann man Zeilen mit fehlenden/leeren Werten in bestimmten Spalten in Excel löschen?
• Wie kann man Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert in Excel ist?
• Wie kann man alle Zeilen außer der ersten Kopfzeile in Excel löschen?
• Wie kann man alle Zeilen unterhalb einer bestimmten Zeile oder aktiven Zelle in Excel löschen?