Uwe
https://www.herber.de/bbs/user/151333.xlsx
Private Sub Worksheet_Calculate()
Dim lngCalc As Long, Zeile As Range, Zelle As Range
lngCalc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Me.Cells.EntireRow.Hidden = False
For Each Zeile In Me.Cells.SpecialCells(xlCellTypeFormulas).Rows
For Each Zelle In Zeile
If WorksheetFunction.IsNA(Zelle) Then
Zeile.EntireRow.Hidden = True
Exit For
End If
Next Zelle
Next Zeile
Application.Calculation = lngCalc
End Sub
Gruß Gerd
Private Sub Worksheet_Calculate()
Dim lngCalc As Long, Zeile As Range, Zelle As Range
lngCalc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Me.Cells.EntireRow.Hidden = False
For Each Zeile In Me.Cells.SpecialCells(xlCellTypeFormulas).Rows
For Each Zelle In Zeile
If WorksheetFunction.IsNA(Zelle) Or Zelle.Text = "0" Then
Zeile.EntireRow.Hidden = True
Exit For
End If
Next Zelle
Next Zeile
Application.Calculation = lngCalc
End Sub
Gruß Gerd