Marko kürzen (Zeichen suchen_Zeile löschen)
08.12.2006 12:13:02
Frank
Brauche mal eure Hilfe oder Rat.
Folgendes Makro habe ich im Forum gefunden.
Ich habe es für meine Bedürfnisse noch erweitert. Es sind aber noch ca.
15 Zeichenfolgen die noch dazu kommen und die ich suchen und löschen muß.
Meine Frage: Kann man dieses Makro kürzen oder muß ich es so erweitern?
Vielleicht läuft es dann auch schneller und der Bildschirm flackert nicht mehr so.
Die Spalte ist voll bis zur letzten Zeile.
Besten Dank im Voraus
Gruß Frank
Sub Zeichen_löschen()
Dim L As Long
Dim ZL As Long
ZL = ActiveSheet.UsedRange.Rows.Count
For L = ZL To 1 Step -1 'Schleife bis zur ersten Zeile
If Cells(L, 1).Value Like "*2000*" Then Rows(L).Delete
If Cells(L, 1).Value Like "*2002*" Then Rows(L).Delete
If Cells(L, 1).Value Like "*Ist*" Then Rows(L).Delete
If Cells(L, 1).Value Like "*Ende*" Then Rows(L).Delete
If Cells(L, 1).Value Like "*Start*" Then Rows(L).Delete
Next L
End Sub