Hilfeee, ich kriegs einfach nicht hin (die Passage bei xx)will einfach nicht.
With Range(Cells(6, 2), Cells(iEnde, 2))
.FormulaLocal = .Value
xx If .Value = 0 Then EntireRow.Hidden = True oder If .Text = "" Then Rows.Hidden = True
End With
Grüsse Lorenz