Wie löscht man Zellinhalte in Excel basierend auf einer bestimmten Bedingung?

AutorXiaoyang Änderungsdatum2024-11-12

Gelegentlich müssen Sie möglicherweise Zellinhalt löschen basierend auf bestimmten Bedingungen in Excel durchführen, beispielsweise den Zellinhalt löschen, wenn die Zelle einen bestimmten Wert enthält, den Zellinhalt löschen, wenn sich leere Zellen in einer anderen Spalte befinden, oder Zellinhalt löschen mit einem bestimmten Hintergrundfarbe usw. Dieser Artikel stellt einige hilfreiche Tricks vor, um diese Aufgaben schnell und einfach zu lösen.

Zellinhalt löschen basierend auf Zellwert mit VBA-Code

Löschen Sie Ganze Zeile, wenn der Wert größer oder kleiner als ein bestimmter Wert ist – mit VBA-Code

Zell- oder Zeileninhalte basierend auf dem Zellwert mit einer praktischen Funktion löschen

Löschen Sie Ganze Zeile, wenn eine andere Zelle leer ist – mit VBA-Code

Zellinhalt löschen basierend auf Hintergrundfarbe mit VBA-Code

Zellinhalt löschen basierend auf Zellwert mit VBA-Code

Angenommen, Sie haben den folgenden Datenbereich und möchten alle Zellinhalte löschen, die „Hoodie“ enthalten – der nachfolgende VBA-Code unterstützt Sie dabei.

Beispieldaten

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 im Modulfenster ein.

VBA-Code: Zellinhalt löschen, wenn Zelle einem bestimmten Wert entspricht

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub

Hinweis: Im obigen Code ist A2:A12der Bereich Datenbereich, aus dem Sie Zellinhalt löschen möchten; der Text „Hoodie“ ist der spezifische Wert, der gelöscht werden soll. Passen Sie diese Angaben bitte entsprechend an.

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Alle Zellen mit dem Text „Hoodie“ werden sofort gelöscht (siehe Screenshot):

VBA-Code zum Löschen von Zellinhalten basierend auf dem Zellwert

Entfesseln Sie die Magie von Excel mit KUTOOLS AI

Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.

Erweitern Sie Ihre Excel-Fähigkeiten mit KI-gestützten Werkzeugen.Jetzt herunterladenund erleben Sie Effizienz wie nie zuvor!

Löschen Sie Ganze Zeile, wenn der Wert größer oder kleiner als ein bestimmter Wert ist – mit VBA-Code

Angenommen, Sie haben den folgenden Datenbereich und möchten die gesamte Zeile löschen, wenn der Wert in Spalte D größer oder kleiner als 300 ist. Dazu erstelle ich einen VBA-Code, um dies umzusetzen.

Beispieldaten

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

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

VBA-Code: Löschen Sie Ganze Zeile, wenn der Zellwert größer oder kleiner als ein bestimmter Wert ist

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub

Hinweis: Im obigen Code ist D2:D12die Spalte Datenbereich, die den spezifischen Wert enthält, basierend auf dem Zeilen gelöscht werden sollen;300ist der spezifische Wert; das Zeichen >innerhalb des Skripts If xCell.Value > xStrValue Thenbedeutet „größer als“. Für „kleiner als“ ändern Sie es entsprechend in das Zeichen <.

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Alle Zeileninhalte werden gelöscht, sobald der Wert in Spalte D größer als 300 ist (siehe Screenshot):

VBA-Code zum Löschen ganzer Zeilen, wenn der Wert größer oder kleiner als ein bestimmter Wert ist

Zell- oder Zeileninhalte basierend auf dem Zellwert mit einer praktischen Funktion löschen

Wenn Sie Kutools für Excel installiert haben, können Sie mithilfe der Funktion Bestimmte Zellen auswählen Zellen oder Zeilen basierend auf einem bestimmten Wert auswählen und anschließend den Zellinhalt auf einen Schlag löschen.

Kutools für Excelbietet über 300 erweiterte Funktionen, um komplexe Aufgaben zu vereinfachen und so Kreativität sowie Effizienz zu steigern.Mit KI-Funktionen integriertautomatisiert Kutools Aufgaben präzise und macht die Datenverwaltung mühelos.Detaillierte Informationen zu Kutools für Excel... Kostenlose Testversion...

Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:

1. Wählen Sie den Datenbereich mit den Werten aus, basierend auf denen Sie Zell- oder Zeileninhalte löschen möchten, und klicken Sie dann auf Kutools > Auswählen > Bestimmte Zellen auswählen (siehe Screenshot):

Klicken Sie auf Kutools > Auswählen > Bestimmte Zellen auswählen

2. Führen Sie im geöffneten Dialogfeld Bestimmte Zellen auswählen die folgenden Schritte aus:

Klicken Sie auf Zelleoder Ganze Zeile, die Sie auswählen möchten;
Geben Sie die Kriterien im Abschnitt Typ angeben entsprechend Ihren Anforderungen ein. In diesem Beispiel möchte ich die Zeilen auswählen, deren Wert in Spalte D größer als 300 ist.

Geben Sie die Optionen im Dialogfeld an

3. Klicken Sie anschließend auf die Schaltfläche OK. Alle Zeilen mit einem Wert größer als 300 werden ausgewählt. Drücken Sie nun einfach die Entf-Taste auf Ihrer Tastatur, um den Zellinhalt zu löschen (siehe Screenshot):

Alle Zeilen mit einem Wert, der größer als der angegebene Wert ist, werden ausgewählt und anschließend deren Inhalte gelöscht

Tipps: Es stehen viele weitere Kriterien zur Verfügung. Geben Sie Ihre eigene Bedingung im Dialogfeld wie im folgenden Screenshot gezeigt an:
Weitere Kriterien im Dialogfeld

Löschen Sie Zeilen Daten innerhalb der Auswahl, wenn diese eine leere Zelle enthalten – mit VBA-Code

In diesem Fall möchte ich die Zeilendaten des Bereichs löschen, sobald sich im Datenbereich eine leere Zelle befindet (siehe Screenshot unten).

Zeileninhalt in einem Bereich löschen, wenn eine leere Zelle enthalten ist

Um diese Aufgabe abzuschließen, wenden Sie bitte den folgenden VBA-Code an:

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 anschließend in das Modul-Fenster ein.

VBA-Code: Löschen Sie Zeilendaten, wenn leere Zellen enthalten sind

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub

Hinweis: Im obigen Code ist A2:D12der Bereich Datenbereich mit den leeren Zellen, aus dem Sie Zellinhalt löschen möchten.

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Die Zeilendaten mit leeren Zellen werden im angegebenen Bereich sofort gelöscht.

Zellinhalt löschen basierend auf Hintergrundfarbe mit VBA-Code

Um Zellen zu löschen, die mit einer bestimmten Hintergrundfarbe gefüllt sind, verwenden Sie einfach den folgenden VBA-Code.

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

2Klicken Sie auf Einfügen>Modul, und fügen Sie anschließend den folgenden Code im Modul-Fenster ein.

VBA-Code: Zellinhalt löschen basierend auf Hintergrundfarbe

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub

Hinweis: Im obigen Code ist A2:D12der Bereich Datenbereich, den Sie verwenden möchten;RGB(252, 228, 214)ist die spezifische Farbe, basierend auf der Zellen gelöscht werden sollen. Sie können den RGB-Wert der Hintergrundfarbe mithilfe des Programms Paintauf Ihrem Computer ermitteln.

3. Drücken Sie anschließend die Taste F5, um diesen Code auszuführen. Der Zellinhalt mit der angegebenen Hintergrundfarbe wird sofort gelöscht (siehe Screenshot):

VBA-Code zum Löschen von Zellinhalten basierend auf der Hintergrundfarbe

Die besten Office-Produktivitätswerkzeuge

Kutools für Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80 %

Super-Formelleiste (müheloses Bearbeiten mehrerer Text- und Formelzeilen); Leseansicht (einfaches Lesen und Bearbeiten großer Zellmengen); Einfügen in Filterbereich...
Zusammengeführte Zellen, Zeilen oder Spalten und deren Daten beibehalten; Zellen aufteilen – Inhalt erhalten;Doppelte Zeilen kombinieren und dabei Summe oder Mittelwert berechnen … Duplikate vermeiden – in Zellen;Bereiche vergleichen …
Duplikate oder Eindeutige Zeilen auswählen;Leerzeilen auswählen (alle Zellen sind leer);Erweiterte und unscharfe Suche in vielen Arbeitsmappen; zufällige Auswahl …
Exakte Kopie mehrerer Zellen, ohne Formelbezüge zu ändern; Automatische Erstellung von Bezügen auf mehrere Blätter; Aufzählungszeichen einfügen, Kontrollkästchen und vieles mehr …
Favorisierte Formeln, Bereiche, Diagramme und Bilder schnell einfügen;Zellen mit Passwort verschlüsseln;Mailing-Liste erstellen und E-Mails versenden...
Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen,Leerzeichen bereinigen; Statistiken zu Arbeitsblättern erstellen und drucken;Umwandlung zwischen Zellinhalt und Kommentaren...
Super-Filter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweitertes Sortieren nach Monat, Woche, Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv …
Arbeitsmappen und Arbeitsblätter kombinieren; Tabellen basierend auf einer Schlüsselspalte zusammenführen; Daten auf mehrere Blätter aufteilen; Batch-Konvertierung von XLS, XLSX und PDF...
PivotTable-Gruppierung nach Kalenderwoche, Wochentag und mehr …Entsperrte anzeigen, Auswahl sperren farblich hervorheben;Zellen hervorheben, die Formeln oder Namen enthalten …

Weiterlesen...Vollständige Funktionen – 30-tägige kostenlose Testversion...Kaufen...

Office Tab – bringt eine tabbasierte Oberfläche in Office und erleichtert Ihre Arbeit erheblich

Aktiviert tabbasiertes Bearbeiten und Lesen in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
Öffnen und Erstellen mehrerer Dokumente in neuen Registerkarten innerhalb desselben Fensters – statt in separaten Fenstern.
Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!

Weiterlesen...Vollständige Funktionen – 30-tägige kostenlose Testversion...Kaufen...