Zeile ausblenden

Sub LeereZeilen_ausblenden()
Dim i As Long
For i = 6 To 145                'in Zeile 6 bis 145 wird geprüft
If Cells(i, 1).Value = "" Then  'ob in der Spalte A ein Wert steht oder nicht
Rows(i).Hidden = True
End If
Next i
End Sub

Sub LeeereZeilenAusblenden()
Application.ScreenUpdating = False
Dim i As Long
Dim letzte As Long
letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
On Error Resume Next
For i = letzte To 6 Step -1
If Cells(i, 1) = "" Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub