Zeilen nach Kriterium löschen / unters. TB
10.01.2019 11:16:47
Marcel
ich habe folgenden Code gefunden:
Sub ZeileKriteriumloeschen_NO()
Dim rDel As Range, r As Range
Application.ScreenUpdating = False
For Each r In Range(Cells(2, 3), Cells(Rows.Count, 3).End(xlUp)) '1 Zahl Zeile, 2 Zahl Spalte _
_
/ Spalte nochmals uebernehmen
If r = 2 Then 'Kriterium anpassen
If rDel Is Nothing Then
Set rDel = r
Else
Set rDel = Union(r, rDel)
End If
End If
Next
If Not rDel Is Nothing Then rDel.EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Mein Anliegen hierzu, wo ich nicht weis, wie ich vorgehen soll
Ich habe eine Excel Mappe mit 4 Tabellenblättern: Blatt1; Blatt2; Blatt3; Blatt4
Ich habe 5 Kriterien (M, NO, NW, SW, SO).
Ich möchte gerne durch 5 verschiedene Makros (für jedes Kriterium 1 Button) die Zeilen, welche nicht dem jeweiligen Kriterium betreffen (jeweils die 4 weiteren) löschen. Die einzelnen Tabellenblätter haben ca. 15000 Zeilen.
Lässt sich dies umsetzen? Wäre euch mega dankbar!
Anzeige