Sub ZeilenLoeschen()
Sheets("BelegEx").Select
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = 1 Then Cells(i, 1).ClearContents
Next i
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If IsEmpty(Cells(iRow, 1)) And _
IsEmpty(Cells(iRow, 1)) Then
Rows(iRow).Delete
End If
Next iRow
Sheets("Label").Select
End Sub