Sub weg()
Dim bereich As Range
Dim l As Long
For l = Range("a65536").End(xlUp).Row To 1 Step -1
Set bereich = Range(Cells(l, 4), Cells(l, 13))
If WorksheetFunction.CountIf(bereich, "") = 10 Then Cells(l, 4).EntireRow.Delete
Next
End Sub
Option Explicit
Sub Zeilen_weg()
Dim z As Long, lz As Long, c As Range
Set c = Cells(Rows.Count, 1): lz = c.Row
If IsEmpty(c) Then lz = c.End(-4162).Row
For z = lz To 1 Step -1
If Application.CountA(Range(Cells(z, 4), Cells(z, 13))) = 0 Then
Rows(z).Delete
End If
Next
End Sub
Sub tt()
MsgBox xlUp * 1
MsgBox xlDown * 1
End Sub
Sub leerzeilenweg() 'löscht Leerzeilen im genutzten Bereich
Dim b, r As Range
Set b = ActiveSheet.UsedRange
Set r = b.Rows(b.Rows.Count)
Do
Set r = r.Offset(-1)
If Application.CountA(r.Offset(1)) = 0 Then
r.Offset(1).Delete
Else
If boxRC = 6 Then ActiveWorkbook.Save
Exit Sub
End If
Loop Until r.Row = b.Row
End Sub
Function boxRC() 'Rückgabewert der MSGBOX (6=ja;7=nein;2=abbrechen)
boxRC = MsgBox("Datei jetzt sichern?", vbYesNoCancel)
End Function