Zeilen löschen
18.03.2005 10:27:00
marc
mit dem unten stehenden Code kann ich Zeilen löeschen die nicht Zahlen sondern
Text beinhalten.
Nun habe ich den Code an die neue Aufgabe angepasst und im Array stehen nur
Zahlen kein Text mehr.
Der Code ist aber nicht im stande die Zeilen zu löschen.
was muss ich da anpassen bzw. veraendern?
-
marc
Sub DeletDe()
Dim arr As Variant
Dim lngLastRow&
Dim i%
arr = Array("110", "120", "150", "188", "189", "190", "191", "192", _
"196", "197", "215", "219", "235", "449", "479", "449", "450")
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Cells(i, 1) = arr(0) Or Cells(i, 1) = arr(1) Or Cells(i, 1) = arr(2) _
Or Cells(i, 1) = arr(3) Or Cells(i, 1) = arr(4) Or Cells(i, 1) = arr(5) _
Or Cells(i, 1) = arr(6) Or Cells(i, 1) = arr(7) Or Cells(i, 1) = arr(8) _
Or Cells(i, 1) = arr(9) Or Cells(i, 1) = arr(10) Or Cells(i, 1) = arr(11) _
Or Cells(i, 1) = arr(12) Or Cells(i, 1) = arr(13) Or Cells(i, 1) = arr(14) _
Or Cells(i, 1) = arr(15) Or Cells(i, 1) = arr(16) Or Cells(i, 1) = arr(18) Then
Rows(i).Delete
End If
Next
Application.ScreenUpdating = True
End Sub