Zeilen löschen wenn in Zelle bestimmter text

Ich löschen möchte die ganze Zeile für die Zelle, die enthalten 'Total' - und 'Netto' in Spalte C.

Habe ich versucht, die makro-Aufzeichnung mit Auto-Filter, aber es werden nur Zeilen löschen bis zu einem bestimmten Bereich (die unterscheiden können, ob ich einen anderen Satz von Daten).

Schätzen Ihre Hilfe!

  • Können Sie bitte poste den code, den Sie aufgenommen mit dem makro-recorder?
  • Rows("1:1").Wählen Sie Auswahl.AutoFilter ActiveSheet.Range("$A$1:$D$5000").AutoFilter Field:=3, Criteria1:="Total" Rows("2:2").Select Range(Selection, Selection.End(xlDown)).Wählen Sie Auswahl.Delete Shift:=xlUp ActiveSheet.Range("$A$1:$D$5000").AutoFilter Field:=3, Criteria1:="Netto" Rows("2:2").Select Range(Selection, Selection.End(xlDown)).Wählen Sie Auswahl.Delete Shift:=xlUp End Sub
InformationsquelleAutor Siti | 2015-02-28
  1. 0

    Hier gehen Sie. Kopieren Sie einfach und fügen Sie dieses Untermenü, um in die Datei. Um es zu verwenden, wählen Sie die EINZIGE Spalte, die Sie auswerten möchten. Diese gehen durch jede Zelle, die ausgewählt wurde, und wenn es den Kriterien entspricht, löscht die gesamte Zeile. Lassen Sie mich wissen, wenn Sie irgendwelche Fragen haben. Viel Glück! 

    Sub DeleteRows()
    'Enter the text you want to use for your criteria
    Const DELETE_CRITERIA = "Test"
    Dim myCell As Range
    Dim numRows As Long, Counter As Long, r As Long

    'Make sure that we've only selected a single column
    If Selection.Columns.Count > 1 Then
        MsgBox ("This only works for a single row or a single column. Try again.")
        Exit Sub
    End If

    numRows = Selection.Rows.Count - 1

    ReDim arrCells(0 To 1, 0 To numRows) As Variant

    'Store data in array for ease of knowing what to delete
    Counter = 0
    For Each myCell In Selection
      arrCells(0, Counter) = myCell
      arrCells(1, Counter) = myCell.Row
      Counter = Counter + 1
    Next myCell

    'Loop backwards through array and delete row as you go
    For r = numRows To 0 Step -1
        If InStr(1, UCase(arrCells(0, r)), UCase(DELETE_CRITERIA)) > 0 Then
            Rows(arrCells(1, r)).EntireRow.Delete
        End If
    Next r

End Sub
    • Sorry, ich bin wirklich neu auf VBA. 1) Können Sie erklären, was ' bedeutet, wenn Sie es in den code? 2) Wo sollte ich in die Suche eingeben Regel - ie; Gesamt - & Netto 3) Wie kann ich geben Sie den code in das graue Feld, wie Sie es
    • Kein problem - wir haben alle schon da. Die ' bedeutet, es ist ein Kommentar. Das Programm wird diese Zeile ignorieren. Ich die Kommentare, so dass Sie sehen konnte, was passiert bei jedem Schritt.
    • Danke für die info. Wie abt-Frage 2 & 3 in meinem Kommentar?
    • Sorry - ich bin der Anrufbeantworter von meinem Telefon jetzt. Für #2) Sie ändern die Kriterien, wo es heißt DELETE_CRITERIA = "Test" - change-Test zu sein, was die phrase, die Sie suchen. Für #3, können Sie entweder eine entsprechende Anzahl von Leerzeichen oder klicken Sie auf die Schaltfläche code-block in den editor.
    • Ich habe gerade realisiert, dieses Skript sucht für die Zellen, das sind GENAU die Kriterien, die Sie suchen - nicht nur MIT dem text. Ich update morgen früh.
    • Keine Sorge. #4), Wie Sie die einzelnen Spalte für den filter (Spalte C), #5) Wo und wie sollte das array aussieht?
    • Ich habe es jetzt behoben. Es enthält aber keine groß-und Kleinschreibung. Wählen Sie die Spalte, die Sie buchstäblich wählen Sie in der Arbeitsmappe mit dem cursor. Sie nicht brauchen, um über ein array - vba erstellt es automatisch.
    • So, ich markieren Sie die Spalte, bevor ich das makro ausführen? Wenn ich den eingegebenen zusätzliche Kriterien (ie; Const DELETE_CRITERIA = "Summe", "Nett" - es zeigt den " Kompilieren Fehler. Erwartet wird: identifizierte'
    • Sie können nicht mehrere Kriterien. Führen Sie es für ein Wort und dann der nächste.

    InformationsquelleAutor KingOfTheNerds
  2. 0

    Wird diese Schleife durch die Zellen in Spalte C und löschen Sie die gesamte Zeile, wenn die Zelle enthält entweder "Total" oder "Nett". Beachten Sie, dass es case-Sensitiv ist, also der erste Buchstabe von "Nett" oder "Total" müsste groß geschrieben werden für diese zu finden. Es können auch andere text in der Zelle aber. Beachten Sie auch, dass die Referenzen nicht voll qualifiziert (also Arbeitsmappe().Arbeitsblatt().Range ()), weil Sie nicht bieten eine Arbeitsmappe oder Arbeitsblatt-Namen. Lassen Sie mich wissen, wenn dies nicht für Sie arbeiten.

    Sub Delete()

Dim i as Integer

For i = Range("c" & Rows.Count).End(xlUp).Row To 1 Step -1
   If Instr(1, Cells(i, 3), "Total") <> 0 Or Instr(1, Cells(i,3),"Nett") <> 0 Then
      Cells(i,3).EntireRow.Delete
   End If
Next i

End Sub
    InformationsquelleAutor Kyle
Schreibe einen Kommentar