Zeile löschen, wenn Werte vorkommen
17.09.2004 10:58:29
Melanie
Zu dem o.g. Thema habe ich schon einen Beitrag in der Recherche gefunden, den ich mir entsprechend umarbeiten konnte. Ich habe aber noch eine Verständnisfrage - sicher könnt ihr mir helfen: Was "macht" das Application.Match? Und was steuere ich mit der "0" am Ende der Zeile?
Sub GesamtbestandSonderlägerLöschen()
Dim irow As Integer, irowL As Integer
Dim var As Variant, var1 As Variant, var2 As Variant
irowL = Cells(Rows.Count, 1).End(xlUp).Row
For irow = irowL To 1 Step -1
var = Application.Match("*SOLI*", Rows(irow), 0)
var1 = Application.Match("*SOKD*", Rows(irow), 0)
var2 = Application.Match("*VBR7*", Rows(irow), 0) 'ca. 3 weitere "var.." folgen
If Not IsError(var) Then
Rows(irow).Delete
Else
If Not IsError(var1) Then
Rows(irow).Delete
Else
If Not IsError(var2) Then
Rows(irow).Delete
End If
End If
End If
Next irow
End Sub
Und zum Schluss noch eine weitere Frage: Kann man das ganze noch "schlanker" gestalten ? Die Datei hat ca. 30.000 Zeilen und ich denke, wenn ich den Praxistest mache, dann dauert das schon seine Zeit. Natürlich werde ich vorher das Screenupdating ausschalten... Aber gibt es noch was, was ich verbessern kann?
Gruß,
Melanie