Wie kann man Zeilen mit negativen Werten in Excel löschen?
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?
 |  |  | Zeilen mit negativen Zahlen mithilfe von VBA-Code löschen Zeilen mit negativen Zahlen mithilfe von Kutools für Excel löschen |
Zeilen mit negativen Zahlen mithilfe von VBA-Code löschen
Der folgende VBA-Code kann Ihnen helfen, die gesamten Zeilen zu löschen, wenn es negative Zahlen in einer bestimmten Spalte gibt. Bitte gehen Sie wie folgt vor:
1. Halten Sie die Tasten ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Zeilen mit negativen Zahlen löschen
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 dann die F5-Taste, um diesen Code auszuführen. Im Eingabeaufforderungsfenster wählen Sie bitte die Nummerspalte aus, in der Sie die negativen Zahlen finden möchten, siehe Screenshot:
4. Klicken Sie dann auf die Schaltfläche OK, die Zeilen mit negativen Zahlen werden sofort gelöscht.
Zeilen mit negativen Zahlen mithilfe von Kutools für Excel löschen
Um diese Aufgabe zu bewältigen, kann auch die Funktion Bestimmte Zellen auswählen von Kutools für Excel Ihnen helfen. Mit diesem Hilfsmittel können Sie zunächst die gesamten Zeilen auswählen, die negative Werte enthalten, und dann die ganzen Zeilen nach Bedarf löschen.
| Kutools für Excel : mit mehr als 300 praktischen Excel-Add-ins, kostenlos 30 Tage lang ohne Einschränkungen testen. |
Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:
1. Wählen Sie die Spalte aus, die die negativen Zahlen enthält, die Sie löschen 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 Gesamte Zeile im Auswahltyp aus, und wählen Sie dann Kleiner als aus dem Typ angeben und geben Sie 0 in das Textfeld neben dem Kriterium ein, siehe Screenshot:
4. Klicken Sie dann auf OK, die Zeilen, die negative Zahlen enthalten, werden sofort ausgewählt. Klicken Sie dann auf Start > Löschen > Ganze Zeilen löschen, um die ausgewählten Zeilen nach Bedarf zu löschen, siehe Screenshots:
 | |  |
Tipp: Sie können auch mit der rechten Maustaste klicken, um Löschen aus dem Kontextmenü auszuwählen, um die ausgewählten Zeilen zu löschen.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 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...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins