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
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