wie kann ich per vba alle sichtbaren Zeilen (die noch nicht ausgeblendet worden sind) unterhalb einer bestimmten Zeile ausblenden.
Ich habs bis jetzt so versucht, aber da stürzt Excel immer ab:
With Sheets("Tabelle2")
.Activate
.Range("B65536").End(xlUp).Select
End With
ausblenden = ActiveCell.Row
Do While ausblenden < 300
If (Selection.EntireRow.Hidden = False) Then
Selection.EntireRow.Hidden = True
ausblenden = ausblenden + 1
End If
Loop
So funktionierts nicht, vielleicht weis jemand Rat?
gruss Flo