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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen