Wie löscht man Zeilen, wenn eine Zelle größer/kleiner als ein bestimmter Wert in Excel ist?

Manchmal müssen Sie möglicherweise Zeilen löschen, wenn die Zellen in einer bestimmten Spalte größer oder kleiner als ein bestimmter Wert in Excel sind. Dieser Artikel wird mehrere Methoden empfehlen, um dieses Problem zu lösen.

Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert mit VBA-Code ist
Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert mit Kutools für Excel ist
Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert mit Kutoos für Excel ist

Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert mit VBA-Code ist

Angenommen, Sie möchten ganze Zeilen löschen, wenn eine Zelle in Spalte D größer oder kleiner als ein bestimmter Wert in Excel ist. Sie können den folgenden VBA-Code ausführen, um dies zu erreichen.

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 und fügen Sie dann den folgenden VBA-Code in das Codefenster ein.

VBA-Code: Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert in Excel ist

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Hinweis: Im obigen Code bedeutet >30000, dass Sie Zeilen löschen werden, wenn Zellen größer als 30000 in einer bestimmten Spalte sind. Wenn Sie Zeilen löschen möchten, wenn Zellen kleiner als ein bestimmter Wert sind, ändern Sie bitte das Zeichen > in < und geben Sie dann Ihren Wert an.

3. Drücken Sie die Taste F5, um den Code auszuführen. Im erscheinenden Dialogfeld von Kutools für Excel wählen Sie den Bereich (einzige Spalte), in dem Sie prüfen möchten, ob die Zellen in dieser Spalte größer oder kleiner als ein bestimmter Wert sind. Klicken Sie dann auf die Schaltfläche OK. Siehe Screenshot:

Dann werden alle Zeilen mit einem Zellenwert größer als 30000 in Spalte D sofort gelöscht.

Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert mit Kutools für Excel ist

Das Hilfsprogramm Bestimmte Zellen auswählen von Kutools für Excel kann Ihnen helfen, alle Zeilen mit Zellen auszuwählen, die größer oder kleiner als ein bestimmter Wert in einer bestimmten Spalte sind, und dann können Sie alle ausgewählten Zeilen manuell auf einmal löschen.

1. Wählen Sie die Spalte aus, basierend auf der Sie Zeilen löschen möchten, klicken Sie dann auf Kutools > Auswählen > Bestimmte Zellen auswählen. Siehe Screenshot:

2. Wählen Sie im Dialogfeld Bestimmte Zellen auswählen im Abschnitt Auswahltyp Gesamte Zeile aus. Wählen Sie im Abschnitt Spezifischer Typ Größer als oder Kleiner als aus der ersten Dropdown-Liste aus, geben Sie den bestimmten Wert in das nächste Textfeld ein und klicken Sie dann auf die Schaltfläche OK.

3. Dann erscheint ein Dialogfeld, das Ihnen mitteilt, wie viele Zeilen ausgewählt wurden. Klicken Sie bitte auf die Schaltfläche OK. Und Sie sehen, dass alle Zeilen mit einem Wert größer als 30000 in Spalte D sofort ausgewählt sind.

4. Klicken Sie mit der rechten Maustaste auf eine der ausgewählten Zeilen und klicken Sie dann im Kontextmenü auf Löschen . Und alle ausgewählten Zeilen werden gelöscht.

Zeilen löschen, wenn eine Zelle größer/kleiner als ein bestimmter Wert mit Kutoos für Excel ist

Neben den oben genannten zwei Methoden können Sie alle Zeilen herausfiltern, deren Zellen größer oder kleiner als ein bestimmter Wert in einer bestimmten Spalte sind, und dann alle gefilterten Zeilen mit dem Hilfsprogramm Ausgeblendete (Sichtbare) Zeilen & Spalten löschen von Kutools für Excel entfernen.

1. Wählen Sie den Spaltenkopf aus, klicken Sie dann auf Daten > Filter. Siehe Screenshot:

2. Klicken Sie auf den Dropdown-Pfeil in der Spalte, basierend auf der Sie Zeilen löschen möchten, klicken Sie dann auf Zahlenfilter > Größer als oder Kleiner als wie im folgenden Screenshot:

3. Geben Sie im Dialogfeld Benutzerdefiniertes AutoFilter die bestimmte Zahl nach dem Feld ist größer als oder ist kleiner als ein und klicken Sie dann auf die Schaltfläche OK.

4. Dann werden alle Zeilen mit bestimmten Zellen, die größer oder kleiner als ein bestimmter Wert in Spalte D sind, herausgefiltert. Sie können alle gefilterten Zeilen löschen, indem Sie die gefilterten Daten auswählen und dann auf Kutools > Löschen > Ausgeblendete (Sichtbare) Zeilen & Spalten löschen klicken. Siehe Screenshot:

5. Stellen Sie im Dialogfeld Ausgeblendete (Sichtbare) Zeilen & Spalten löschen sicher, dass die Option Im ausgewählten Bereich im Drop-down-Menü Suchen in ausgewählt ist, wählen Sie Zeilen im Abschnitt Löschtyp aus, geben Sie die Option Sichtbare Zeilen im Abschnitt Detaillierter Typ an und klicken Sie schließlich auf die Schaltfläche OK.

6. Dann werden alle sichtbaren Zeilen im ausgewählten Bereich sofort gelöscht. Sie können den Filter aufheben, indem Sie auf Daten > Filter klicken.

Verwandte Artikel:

• Wie löscht man alle Zeilen unterhalb einer bestimmten Zeile oder aktiven Zelle in Excel?
• Wie löscht man alle Zeilen außer der ersten Kopfzeile in Excel?