Sub CommandButton1_Click()
Worksheets("HT_FuTa").Activate
ActiveSheet.Rows.Hidden = False
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 12).End(xlUp).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 12)) Or Cells(iRow, 12).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
End Sub
es sollten alle zeilen, welche in der spalte L kein leer/0 sind ausgeblendet werden. der CommandButton1 befindet sich nicht auf dem blatt "HT-FuTa".