Private Sub CommandButton1_Click()
Dim LetzteZeile As Long
Dim curZeile As Long
With ActiveSheet
LetzteZeile = .Cells( .Cells.Rows.Count, 1).End(xlUp).Row
For curZeile = 1 To LetzteZeile
If .Cells(curZeile, 1) <> "" Then
If .Cells(curZeile, 1) <> 0 Then
.Cells(curZeile, 1).EntireRow.Hidden = False
End If
End If
Next curZeile
End With
End Sub
Severus
|