Hallo zusammen,

folgendes Makro zum verbergen von Zeilen funktioniert recht gut aber nachdem ich von der Normalansicht zur Seitenansicht wechsle und dann zurück braucht es viel länger.Wer hilft mir wieder das gewohnte Tempo zu erreichen ???

VIELEN DANK SCHON ZUM VORAUS

Sub AusblendenLeereZeilen()
Application.ScreenUpdating = False
Dim i As Integer
For i = 1 To Worksheets("tabelle1").UsedRange.Rows.Count
Range("A" & i).Select
If Range("A" & i).Value = "" Then
Range("A" & i).EntireRow.Hidden = True
End If
Next i
End Sub