Direkt zum Inhalt

Wie lösche ich Zeilen mit negativen Werten in Excel?

Autor: Xiaoyang Letzte Änderung: 2020-07-17

Angenommen, Sie haben den folgenden Datenbereich und möchten die gesamten Zeilen löschen, wenn die Zahl in Spalte B negativ ist. Gibt es gute Methoden, um dieses Problem in Excel zu lösen?

doc mit negativ löschen 1 2 doc mit negativ löschen 2

Löschen Sie Zeilen mit negativen Zahlen mithilfe von VBA-Code

Löschen Sie Zeilen mit negativen Zahlen mit Kutools for Excel


Pfeil blau rechte Blase Löschen Sie Zeilen mit negativen Zahlen mithilfe von VBA-Code

Der folgende VBA-Code kann Ihnen helfen, die gesamten Zeilen zu löschen, wenn eine bestimmte Spalte negative Zahlen enthält. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.

VBA-Code: Löschen Sie Zeilen mit negativen Zahlen

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. Und dann drücken F5 Wählen Sie im Eingabeaufforderungsfeld die Zahlenspalte aus, in der Sie die negativen Zahlen suchen möchten (siehe Abbildung).

doc mit negativ löschen 3

4. Dann klick OK Schaltfläche wurden die Zeilen mit negativen Zahlen sofort gelöscht.


Pfeil blau rechte Blase Löschen Sie Zeilen mit negativen Zahlen mit Kutools for Excel

Um diesen Job zu erledigen, Kutools for Excel Wählen Sie Bestimmte Zellen aus Die Funktion kann Ihnen auch einen Gefallen tun. Mit diesem Dienstprogramm können Sie zuerst die gesamten Zeilen mit den negativen Werten auswählen und dann die gesamten Zeilen nach Bedarf löschen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. 

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Wählen Sie die Spalte aus, die negative Zahlen enthält, die Sie löschen möchten.

2. Dann klick Kutoolen > Auswählen > Wählen Sie Bestimmte Zellen aus, siehe Screenshot:

3. In dem Wählen Sie Bestimmte Zellen aus Dialogfeld auswählen Ganze Reihe Option in der Auswahltypund dann wählen Weniger als von dem Spezifischer Typ und gib ein 0 in das Textfeld neben den Kriterien, siehe Screenshot:

doc mit negativ löschen 5

4. Dann klick Okwurden die Zeilen, die negative Zahlen enthalten, sofort ausgewählt, und klicken Sie dann auf Startseite > Löschen > Löschen Sie Blattzeilen Informationen zum Löschen der ausgewählten Zeilen nach Bedarf finden Sie unter Screenshots:

doc mit negativ löschen 6 2 doc mit negativ löschen 7

Tips: Sie können auch mit der rechten Maustaste auswählen Löschen aus dem Kontextmenü, um die ausgewählten Zeilen zu löschen.

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks for the delete function .. works great .. must be numeric field not just - regards
This comment was minimized by the moderator on the site
Thanks for this!

Is there a way of doing this with positive values too?
This comment was minimized by the moderator on the site
Hi, Jon,
To remove rows with positive values, you just need to apply the following code, please try.
Sub Deleter()
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) > 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations