Leere Zeilen Ausblenden-bei Spalten gehts
05.12.2005 08:45:05
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
(Hallo Heiko, bin heute erst zum lesen deiner Antwort gekommen:
so blendet er immer nur eine Zeile aus:
Hallo Lars,
ich habe noch keine EXCEL Tabelle mit nur 256 Zeilen gesehen, aber so könnte es gehen.
Sub LeereZeileAus()
Dim i%
Application.ScreenUpdating = False
' Wenn du das wirklich für alle Zeilen machen willst, dann
' For i = 1 To 65536
' Aber dann muss die Variable i auch vom Typ LONG sein !!!
For i = 1 To UsedRange.Rows.Count
If IsEmpty(Cells(i, Columns.Count).End(xlToLeft)) Then
Rows(i).Hidden = True
End If
Next i
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett