Direkt zum Inhalt

Wie lösche ich Zeilen, wenn die Zelle in Excel größer / kleiner als ein bestimmter Wert ist?

Manchmal müssen Sie möglicherweise Zeilen löschen, wenn die Zellen in einer angegebenen Spalte in Excel größer oder kleiner als ein bestimmter Wert sind. In diesem Artikel werden verschiedene Methoden zur Behebung dieses Problems empfohlen.

Löschen Sie Zeilen, wenn die Zelle mit VBA-Code größer / kleiner als ein bestimmter Wert ist
Löschen Sie Zeilen, wenn die Zelle mit Kutools for Excel größer / kleiner als ein bestimmter Wert ist
Löschen Sie Zeilen, wenn die Zelle mit Kutoos for Excel größer / kleiner als ein bestimmter Wert ist


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

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

1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modulen. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Löschen Sie Zeilen, wenn die Zelle in Excel größer / kleiner als ein bestimmter Wert 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

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

3. Drücken Sie F5 Schlüssel zum Ausführen des Codes beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Bereich (einzelne Spalte) aus, den Sie finden, wenn die Zellen in dieser Spalte größer oder kleiner als ein bestimmter Wert sind. Und dann klicken Sie auf OK Taste. Siehe Screenshot:

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


Löschen Sie Zeilen, wenn die Zelle mit Kutools for Excel größer / kleiner als ein bestimmter Wert ist

Das Wählen Sie Bestimmte Zellen aus Nutzen von Kutools for Excel Sie können alle Zeilen mit Zellen auswählen, die größer oder kleiner als ein bestimmter Wert in einer bestimmten Spalte sind. Anschließend können Sie alle ausgewählten Zeilen gleichzeitig manuell löschen.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

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

2. In dem Wählen Sie Bestimmte Zellen aus Dialogfeld bitte auswählen Ganze Reihe der Auswahltyp Sektion. In dem Spezifischer Typ Abschnitt auswählen Größer als or Weniger als Geben Sie in der ersten Dropdown-Liste den bestimmten Wert in das nächste Textfeld ein und klicken Sie dann auf OK .

3. Daraufhin wird ein Dialogfeld angezeigt, in dem Sie erfahren, wie viele Zeilen ausgewählt sind. Klicken Sie auf OK Taste. Und Sie können sehen, dass alle Zeilen mit einem Wert größer als 30000 in Spalte D sofort ausgewählt werden.

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

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Löschen Sie Zeilen, wenn die Zelle mit Kutoos for Excel größer / kleiner als ein bestimmter Wert ist

Zusätzlich zu den beiden oben genannten Methoden können Sie alle Zeilen mit Zellen herausfiltern, die größer oder kleiner als ein bestimmter Wert in einer angegebenen Spalte sind, und dann alle gefilterten Zeilen mit der entfernen Versteckte (sichtbare) Zeilen und Spalten löschen Nutzen von Kutools for Excel.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Wählen Sie die Spaltenüberschrift aus und klicken Sie auf Datum > Filter. Siehe Screenshot:

2. Klicken Sie auf den Dropdown-Pfeil in der Spalte, auf deren Grundlage Sie Zeilen löschen möchten, und klicken Sie dann auf Zahlenfilter > Größer als or Weniger als wie unten Screenshot:

3. In dem Benutzerdefinierter AutoFilter Geben Sie im Dialogfeld die bestimmte Zahl ein, nachdem das Feld größer oder kleiner als ist, und klicken Sie dann auf OK .

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

5. In dem Versteckte (sichtbare) Zeilen und Spalten löschen Stellen Sie im Dialogfeld sicher, dass Im ausgewählten Bereich Option ist in der Option ausgewählt Hinein sehen Dropdown-Liste, wählen Sie Reihen der Typ löschen Geben Sie im Abschnitt Sichtbare Zeilen die Option Sichtbare Zeilen an Detaillierter Typ Klicken Sie abschließend auf OK .

6. Anschließend werden alle sichtbaren Zeilen im ausgewählten Bereich sofort gelöscht. Sie können den Filter durch Klicken abbrechen Datum > Filter.

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Löschen Sie Zeilen, wenn die Zelle mit Kutools for Excel größer / kleiner als ein bestimmter Wert ist


In Verbindung stehende Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations