Private Sub CommandButton1_Click()
Dim curZeile As Long
Dim RowAusgeblendet As Boolean
Dim Zelle As Excel.Range
RowAusgeblendet = True

With ActiveSheet

For Each Zelle In .UsedRange.Columns("A").Cells
If Zelle = "" Or Zelle = 0 Then
If Zelle.EntireRow.Hidden = False Then
RowAusgeblendet = False
Exit For
End If
End If
Next

If RowAusgeblendet = True Then
.UsedRange.EntireRow.Hidden = False
Else
For curZeile = 1 To .UsedRange.Rows.Count
If .Cells(curZeile, 1) = "" Or .Cells(curZeile, 1) = 0 Then
.Cells(curZeile, 1).EntireRow.Hidden = True
End If
Next curZeile
End If

End With
End Sub