Zeilen löschen
17.03.2005 12:26:36
marc
in meinem VBA-Code ist ein Fehler, GoTo kommt als Meldung.
was habe ich vergessen ?
-
marc.
Sub DeletDe()
Dim arr As Variant
Dim lngLastRow&
Dim i%
arr = Array("010", "020", "149", "180", "184", "190")
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Cells(i, 5) = arr(0) Or Cells(i, 5)= arr(1) Or Cells(i, 5) = arr(2) _
Or Cells(i, 5) = arr(3) Or Cells(i, 5) = arr(4) Or Cells(i, 5) = arr(5) _
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub
Anzeige