Vorausgesetzt dein CommandButton heißt nicht anders:
Mach aus
Sub Einblenden()
Dim LetzteZeile As Long
Dim curZeile As Long
With ActiveSheet
LetzteZeile = .Cells( .Cells.Rows.Count, 1).End(xlUp).Row 'Die Kriterien stehen in Spalte A
For curZeile = 1 To LetzteZeile
If .Cells(curZeile, 1) > 0 Then
.Cells(curZeile, 1).EntireRow.Hidden = False
End If
Next curZeile
End With
End Sub
Private Sub CommandButton1_Click()
Dim LetzteZeile As Long
Dim curZeile As Long
With ActiveSheet
LetzteZeile = .Cells( .Cells.Rows.Count, 1).End(xlUp).Row 'Die Kriterien stehen in Spalte A
For curZeile = 1 To LetzteZeile
If .Cells(curZeile, 1) > 0 Then
.Cells(curZeile, 1).EntireRow.Hidden = False
End If
Next curZeile
End With
End Sub
Severus
|