Code soll auch bei ausgeblendetem Tabellenblatt fu

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