Zeilen löschen bei bestimmten Wert

Sub Artikel_loeschen_KV() ' Artikel_loeschen_KV Makro For i = Cells(Rows.Count, 6).End(xlUp).Row To 1 Step -1 If Cells(i, 6) = "21111" Then Rows(i).Delete If Cells(i, 6) = "21112" Then Rows(i).Delete If Cells(i, 6) = "21113" Then Rows(i).Delete Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Artikel_loeschen() ' Artikel_loeschen Makro For i = Cells(Rows.Count, 6).End(xlUp).Row To 1 Step -1 If Cells(i, 6) >= "10000" And Cells(i, 6) = "20020" And Cells(i, 6) = "20240" And Cells(i, 6) = "20310" And Cells(i, 6) = "20640" And Cells(i, 6) = "20670" And Cells(i, 6) = "30090" And Cells(i, 6) = "30150" And Cells(i, 6) = "31110" And Cells(i, 6) = "47091" And Cells(i, 6) = "60010" And Cells(i, 6) = "62206" And Cells(i, 6) = "63100" And Cells(i, 6) = "70060" And Cells(i, 6) = "70100" And Cells(i, 6) = "70180" And Cells(i, 6) = "80120" And Cells(i, 6) = "82200" And Cells(i, 6) = "91200" And Cells(i, 6)

Option Explicit Sub Artikel_loeschen() Dim i As Long, raWeg As Range With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With On Error Resume Next With Worksheets("Tabelle1") For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row Select Case Cells(i, 6) Case 5000 To 5005, 10000 To 10025, 20020 To 20170, 20240 To 20250, 20310 To 20530, _ 20640 To 20650, 20670 To 21115, 30090 To 30110, 30150 To 30160, 31110 To 47080, _ 47091 To 47651, 60010 To 62204, 62206 To 62209, 63100 To 63170, 70060 To 70070, _ 70100 To 70110, 70130, 70180 To 71150, 80120 To 80150, 82200 To 82220, _ 91200 To 91400, "PORTO", "FR", "BH25", "he", "SM", "HSM25", "ROT3", "BZ1", "BZ2,5" If raWeg Is Nothing Then Set raWeg = .Cells(i, "A") Else Set raWeg = Union(raWeg, .Cells(i, "A")) End If Case Else End Select Next If Not raWeg Is Nothing Then raWeg.EntireRow.Delete End If End With Set raWeg = Nothing On Error GoTo 0 Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

Option Explicit Sub artikelloeschen1() Dim i As Long, loSpalte As Long, raWeg As Range With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With On Error Resume Next With Worksheets("Tabelle1") loSpalte = .Cells(1, .Columns.Count).End(xlToLeft).Column For i = 1 To Cells(Rows.Count, 6).End(xlUp).Row Select Case Cells(i, 6) Case 5000 To 5005, 10000 To 10025, 20020 To 20170, 20240 To 20250, 20310 To 20530, _ 20640 To 20650, 20670 To 21115, 30090 To 30110, 30150 To 30160, 31110 To 47080, _ 47091 To 47651, 60010 To 62204, 62206 To 62209, 63100 To 63170, 70060 To 70070, _ 70100 To 70110, 70130, 70180 To 71150, 80120 To 80150, 82200 To 82220, _ 91200 To 91400, "PORTO", "FR", "BH25", "he", "SM", "HSM25", "ROT3", "BZ1", "BZ2,5" If raWeg Is Nothing Then Set raWeg = .Cells(i, "A").Resize(, loSpalte) Else Set raWeg = Union(raWeg, .Cells(i, "A").Resize(, loSpalte)) End If Case Else End Select Next If Not raWeg Is Nothing Then raWeg.Delete End If End With Set raWeg = Nothing On Error GoTo 0 Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End Sub

Hi
~f~
1. Einmalige Vorbereitung der Daten:
- Erstellen auf einem weiteren Blatt eine zusätzliche Tabelle.
- Formatieren die Spalten A und B mit dem Zahlenformat Text.
- Füge in die Spalte A alle Werte für die >=-Prüfung ein und in Spalte B die Werte aus der - Die Werte aus der =-Prüfung schreibt du in der gleichen Tabelle in Spalte A und B
- Füge in Spalte A noch einen Dummywert 0 hinzu.
- Sortieren die Liste nach Spalte A
~f~
2. Löschen der Zeilen
- in die erste freie Spalte am Tabellenende kommt folgende Formel:

=Wenn($F1

- in die Zeile 1 der Hilfssspalte kommt die 0
- wende dann auf die ganze Tabelle die Funktion Daten - Datentools - Duplikate entfernen an mit der Hilfsspalte als Kriteriumsspalte und der Option "keine Überschrift"
- Lösche die Hilfsspalte
Diesen Schritt 2 programmierterst du dir als Makro. Der Recorder hilft dir dabei, weil das Makro zum größten Teil aus aufzeichenbaren Excel-Anweisungen besteht.
Mit den Suchbegriffen "Zeilen löschen" und "Duplikate entfernen" solltest du auch Codebeispiele im Archiv finden, bei denen du dann nur noch die Formel anpassen musst.
Das ganze hat zwei Vorteile:
a) es ist viel schneller
b) du kannst über die Tabelle weitere Löschbedingungen hinzufügen, entfernen oder ändern, ohne in den Code eingreifen zu müssen
c) das geht auch von Hand ohne Makro.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Zeilen löschen bei bestimmten Wert

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread