Zum Hauptinhalt springen

Wie kann man Zeilen basierend auf der Hintergrundfarbe in Excel löschen?

Author: Xiaoyang Last Modified: 2025-08-06

Wie könnten Sie ganze Zeilen basierend auf der Hintergrundfarbe löschen? In diesem Beispiel muss ich alle Zeilen löschen, deren Zellen mit einer blauen Hintergrundfarbe gefüllt sind, wie im folgenden Screenshot gezeigt. Mit diesem Artikel erhalten Sie einige Codes, um diese Aufgabe in Excel auszuführen.

A screenshot showing rows with blue background color to be deleted in Excel

Zeilen mit bestimmter Hintergrundfarbe basierend auf jeder Zelle löschen

Zeilen mit bestimmter Hintergrundfarbe basierend auf einer Spalte löschen


arrow blue right bubble Zeilen mit bestimmter Hintergrundfarbe basierend auf jeder Zelle löschen

Wenn Sie einen Datenbereich haben, der zufällig mit einigen Zellfarben gefüllt ist, und Sie müssen die Zeilen löschen, bei denen die Zellenfarbe blau ist, wie im folgenden Screenshot gezeigt:

A screenshot showing specific cells filled with blue color to be deleted in Excel

Um diesen Typ von Zeilen zu löschen, können Sie den folgenden VBA-Code verwenden, bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Zeilen löschen, deren Zellen eine bestimmte Füllfarbe enthalten:

Sub DeleteRows()
'Updateby Extendoffice
    Dim rngCl As Range
    Dim xRows As Long
    Dim xCol As Long
    Dim colorLg As Long
    On Error Resume Next
    Set rngCl = Application.InputBox _
        (Prompt:="Select a cell with the background color to be deleted", _
        Title:="Kutools for Excel", Type:=8)
    On Error GoTo 0
    If rngCl Is Nothing Then
        MsgBox "User cancelled operation." & vbCrLf & _
        "Processing terminated", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    colorLg = rngCl.Interior.Color
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        For xRows = .Rows.Count To 1 Step -1
            For xCol = 1 To .Columns.Count
                           If .Cells(xRows, xCol).Interior.Color = colorLg Then
                    .Rows(xRows).Delete
                    Exit For
                End If
            Next xCol
        Next xRows
    End With
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Hinweisfenster wird angezeigt, das Sie daran erinnert, eine Zelle mit der Füllfarbe auszuwählen, die Sie löschen möchten, siehe Screenshot:

A screenshot of selecting a cell with the background color to delete rows

4. Klicken Sie dann auf OK, und alle Zeilen wurden gelöscht, wenn die Zelle eine bestimmte Füllfarbe hat.


arrow blue right bubble Zeilen mit bestimmter Hintergrundfarbe basierend auf einer Spalte löschen

Wenn Sie die Zeilen mit einer bestimmten Farbe nur basierend auf einer Spalte löschen möchten, zum Beispiel die Zeilen mit Blau in Spalte A löschen und das untenstehende Screenshot erhalten, gibt es auch einen VBA-Code, der Ihnen helfen kann.

A screenshot showing rows with blue color in column A to be deleted in Excel

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Zeilen basierend auf einer Spalte löschen, deren Zellen eine bestimmte Füllfarbe haben:

Sub deleterow()
'UpdateBY Extendoffice
   Dim xRg As Range, rgDel As Range
    For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
        If xRg.Interior.ColorIndex = 20 Then
            If rgDel Is Nothing Then
                Set rgDel = xRg
            Else
                Set rgDel = Union(rgDel, xRg)
            End If
        End If
    Next xRg
    If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub

Hinweis: Im obigen Code ist A2:A21 die Spalte, die die spezifische Füllfarbe enthält, auf deren Basis Sie die Zeilen löschen möchten; die Zahl 20 im Skript ColorIndex = 20 ist der Farbindex, auf dessen Basis Sie die Zeilen löschen möchten. Sie können diese nach Bedarf ändern.

3. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und alle Zeilen, deren Zellen in Spalte A die blaue Farbe enthalten, werden sofort gelöscht.

Die besten Office-Produktivitätstools

🤖 Kutools AI Aide: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung |  Code generieren  |  Benutzerdefinierte Formeln erstellen |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Doppelte suchen, hervorheben oder markieren | Leere Zeilen löschen | Spalten oder Zellen ohne Datenverlust zusammenführen | Runden
Erweiterte SVERWEIS: SVERWEIS mit mehreren Kriterien | SVERWEIS für mehrere Werte | Mehrblatt-SVERWEIS | Fuzzy Match
Erweiterte Dropdown-Liste: Dropdown-Liste schnell erstellen | Abhängige Dropdown-Liste | Mehrfachauswahl-Dropdown-Liste
Spalten-Manager: Eine bestimmte Anzahl an Spalten hinzufügen | Spalten verschieben | Sichtbarkeit von ausgeblendeten Spalten umschalten | Bereiche & Spalten vergleichen
Hervorgehobene Funktionen: Gitterfokus | Entwurfsansicht | Erweiterte Formelleiste | Arbeitsmappen- & Blattmanager | AutoText-Bibliothek | Datumsauswahl | Daten zusammenführen | Zellen verschlüsseln/entschlüsseln | E-Mail senden nach Liste | Super Filter | Spezialfilter (Filtern nach Fett/Kursiv/Durchgestrichen...)…
Top15 Toolsets:12 Text-Tools (Text hinzufügen, Bestimmte Zeichen löschen, ...) | 50+ Diagramm typen (Gantt-Diagramm, ...) | 40+ praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...) | 19 Einfüge-Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...) | 12 Konvertierungs-Tools (In Wörter umwandeln, Währungsumrechnung, ...) | 7 Konsolidieren & Aufteilen-Tools (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...) | ... und mehr
Nutzen Sie Kutools in Ihrer bevorzugten Sprache – unterstützt Englisch, Spanisch, Deutsch, Französisch, Chinesisch und über40 weitere Sprachen!

Steigern Sie Ihre Excel-Kompetenz mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen, um Ihre Produktivität zu steigern und Zeit zu sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt die Reiter-Oberfläche in Office und macht Ihre Arbeit so viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen in Reitern in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Reitern desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich Hunderte von Mausklicks!