Wie kann man in Excel Zeilen basierend auf ihrer Hintergrundfarbe löschen?
Wie können Sie Ganze Zeile basierend auf Hintergrundfarbe löschen? In diesem Beispiel müssen alle Zeilen gelöscht werden, deren Zellen mit blauer Hintergrundfarbe gefüllt sind, wie im folgenden Screenshot gezeigt. Mit diesem Artikel erhalten Sie einige Codes, um diese Aufgabe in Excel zu erledigen.
Zeilen löschen mit bestimmter Hintergrundfarbe basierend auf jeder Zelle
Zeilen löschen mit bestimmter Hintergrundfarbe basierend auf einer Spalte
Zeilen löschen mit bestimmter Hintergrundfarbe basierend auf jeder Zelle
Wenn Sie einen Datenbereich haben, der zufällig mit verschiedenen Zellenfarben gefüllt ist, und Sie die Zeilen löschen möchten, deren Zellenfarbe blau ist, wie im folgenden Screenshot dargestellt:
Um diesen Zeilentyp zu löschen, verwenden Sie den folgenden VBA-Code – so geht’s:
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 Modul-Fenster ein.
VBA-Code: Zeilen löschen, bei denen 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 anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Eingabefeld, in dem Sie aufgefordert werden, eine Zelle mit der gewünschten Füllfarbe auszuwählen – deren Zeilen Sie löschen möchten (siehe Screenshot):
4. Klicken Sie dann auf OK, und alle Zeilen, deren Zellen eine bestimmte Füllfarbe aufweisen, werden gelöscht.
Zeilen löschen mit bestimmter Hintergrundfarbe basierend auf einer Spalte
Wenn Sie Zeilen mit einer bestimmten Farbe ausschließlich anhand einer Spalte löschen möchten – etwa alle Zeilen, deren Zellen in Spalte A blau gefärbt sind, wie im folgenden Screenshot dargestellt – steht Ihnen hierfür ebenfalls ein VBA-Code zur Verfügung.
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen>Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Zeilen löschen basierend auf einer Spalte, deren Zellen eine bestimmte Füllfarbe aufweisen:
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 bestimmte Füllfarbe enthält, anhand derer die Zeilen gelöscht werden sollen. Die Zahl 20 in ColorIndex = 20 im Skript ist der Farbcode, anhand dessen Sie Zeilen löschen möchten. Sie können diese Werte ganz einfach an Ihre Anforderungen anpassen.
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Alle Zeilen, deren Zellen in Spalte A blau gefärbt sind, werden sofort gelöscht.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins