AW: Überpfrüfung / Löschen von Zeilen
03.05.2004 13:46:49
Zeilen
Hallo Thorsten,
die Unbekannte, an der sich der Code gestört hatte, waren die #NV-Fehler. Jetzt wie folgt:
Sub Loeschen()
Dim lRowL As Long, lRow As Long
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.ScreenUpdating = False
lRowL = Cells(Rows.Count, 12).End(xlUp).Row
For lRow = lRowL To 1 Step -1
If lRow Mod 100 = 0 Then
Application.StatusBar = "Bearbeite Zeile " & lRow & "..."
End If
If WorksheetFunction.IsNA(Cells(lRow, 12)) = False Then
If Cells(lRow, 12).Value = False Then
Rows(lRow).Delete
End If
End If
Next lRow
Application.StatusBar = False
Application.DisplayStatusBar = bln
Application.ScreenUpdating = True
End Sub
gruss hans