Sub leereLoeschen()
Dim rng As Range
With ActiveSheet
Set rng = .UsedRange.Offset(0, .UsedRange.Columns.Count).Resize(, 1)
End With
With rng
.FormulaR1C1 = "=AND(RC2="""",RC9="""")*1"
.AutoFilter Field:=1, Criteria1:="1"
.SpecialCells(xlCellTypeVisible).Offset(1, 0).EntireRow.Delete
.AutoFilter
.EntireColumn.Delete
End With
Set rng = Nothing
End Sub
Sub leereLoeschen()
Dim rng As Range
With ActiveSheet
Set rng = .UsedRange.Offset(0, .UsedRange.Columns.Count).Resize(, 1)
End With
With rng
.FormulaR1C1 = "=AND(RC2="""",RC9="""")*1"
.AutoFilter Field:=1, Criteria1:="1"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.AutoFilter
.EntireColumn.Delete
End With
Set rng = Nothing
End Sub