In dieser Datei sollen nur die Spalten mit dem String WAHR stehen bleiben, alle mit dem String FALSCH sollen gelöscht werden...
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