Leere Zeilen ausblenden-Spalten geht
30.11.2005 19:18:13
LarsJungclaus
ich habe ein Makro das alle leeren Spalten ausblendet - siehe unten.
Wenn ich aber alle leeren Zeilen ausblenden will, siehe 2tes MAkro dann geht das nicht. Wer kann helfen?
Danke Lars
Sub LeereSpalteAus()
Dim i%
Application.ScreenUpdating = False
For i = 1 To 256
If IsEmpty(Cells(Rows.Count, i).End(xlUp)) Then
Columns(i).Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub LeereZeileAus()
Dim i%
Application.ScreenUpdating = False
For i = 1 To 256
If IsEmpty(Cells(Rows.Count, i).End(xlUp)) Then
Rows(i).Hidden = True
End If
Next i
End Sub
Anzeige