Wie geht man in Excel mit dem Löschen von Zeilen um, die negative Werte enthalten?
Angenommen, Sie haben den folgenden Datenbereich und möchten die gesamte Zeile löschen, sobald die Zahl in Spalte B negativ ist – gibt es hierfür effiziente Methoden in Excel?
 |  |  | Zeilen löschen mit negativen Zahlen mithilfe von VBA-Code Zeilen löschen mit negativen Zahlen mithilfe von Kutools für Excel |
Zeilen löschen mit negativen Zahlen mithilfe von VBA-Code
Der folgende VBA-Code hilft Ihnen, ganze Zeilen zu löschen, sobald in einer Spalte negative Zahlen vorhanden sind. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten 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 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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Geben Sie im Eingabefeld die Nummernspalte an, in der Sie nach negativen Zahlen suchen möchten (siehe Screenshot):
4. Klicken Sie dann auf die Schaltfläche OK, um die Zeilen mit negativen Zahlen sofort zu löschen.
Zeilen löschen mit negativen Zahlen mithilfe von Kutools für Excel
Um diese Aufgabe zu erledigen, kann Ihnen die Kutools für Excel-Funktion Bestimmte Zellen auswählen ebenfalls behilflich sein. Mit diesem Werkzeug wählen Sie zunächst die gesamte Zeile mit negativen Werten aus und löschen anschließend die entsprechenden Zeilen ganz nach Bedarf.
| Kutools für Excel:mit mehr als 300 praktischen Excel-Add-Ins, kostenlos und uneingeschränkt 30 Tage lang testbar. |
Nach der Installation von Kutools für Excelgehen Sie wie folgt vor:
1. Wählen Sie die Spalte aus, die negative Zahlen enthält, die Sie entfernen möchten.
2. Klicken Sie dann auf Kutools > Auswählen > Bestimmte Zellen auswählen (siehe Screenshot):
3. Wählen Sie im Dialogfeld Bestimmte Zellen auswählen die Option Ganze Zeile unter Auswahltyp aus, wählen Sie anschließend „Kleiner als“ aus dem Dropdown-Menü Typ angeben aus und geben Sie 0 in das Textfeld neben dem Kriterium ein (siehe Screenshot):
4. Klicken Sie dann auf OK, um alle Zeilen mit negativen Zahlen sofort auszuwählen. Anschließend klicken Sie auf Start > Löschen > Arbeitsblattzeilen löschen, um die ausgewählten Zeilen zu entfernen (siehe Screenshots):
 | |  |
Tipp： Sie können die markierten Zeilen auch löschen, indem Sie mit der rechten Maustaste klicken und im Kontextmenü „Löschen“ auswählen.
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