Leider funktioniert der untenstehende Code nur wenn nach Zeile 97 alle Zeilen eingeblendet sind.
Ich habe aber ab Zeile 98 alle Zeilen ausgeblendet.
if Target.Row >= 14 Then
iZ = Target.Row + 1
With Range(Cells(iZ, 1), Cells(97, 1))
.EntireRow.Hidden = True
End With
End If
Fehlermeldung: die hidden Eigenschaft kann nicht festgelegt werden (fehler 1004)
Wie muß der Code umfunktioniert werden, daß dieser Makro auch bei ausgeblendete Zeilen funzt?
Gruß
Lorenz