Bestimmte Rows delete
22.01.2005 11:10:45
marc
bis jetzt habe ich die leeren Zeilen in den Tabellen mit dem
unten stehenden Code geloescht.
Wie kann ich Zeilen, die in Spalte " E " folgenden Eintrag beinhalten
( NABI, NWAS, NKEA, ASC2, NAST,NLFA ) loeschen ?
-
marc. :o)
Option Explicit
Sub DeletEmptyRows()
Dim lngLastRow As Long
Dim i As Integer
lngLastRow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
' Application.ScreenUpdating = False
For i = lngLastRow To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(i)) = 0 Then
Rows(i).Delete
End If
Next i
'Application.ScreenUpdating = True
End Sub