Möchte gern damit :
Sub LoeschenT()
Dim lngI As Long
Application.ScreenUpdating = False
For lngI = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If ActiveSheet.Cells(lngI, 1) = "10" Then ActiveSheet.Cells(lngI, 1).EntireRow.Delete
Next lngI
Application.ScreenUpdating = True
End Sub
alle Zeilen löschen, in denen die Zahl 10, aber auch die Zellen/Zeilen, in denen noch mehrere andere Sachen vorkommen, d.h. wenn mindestens eine der Bedingungen zutrifft.
Die Tabelle besteht nur aus Spalte A und ca. 1500-2000 Zeilen.
Problem ist, ich habe so ca. 40 Werte, bei deren Auftreten die Zeile komplett gelöscht werden muss, brauche also noch so ne Art "Zeilenumbruch" im Code. Stehe hier auf dem Schlauch... Oder sollte man das vielleicht eleganter lösen ? Könnte mir jemand kurz helfen ?
Danke, Mario