Anzeige
Archiv - Navigation
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Leere Zeilen ausblenden-Spalten geht

Leere Zeilen ausblenden-Spalten geht
30.11.2005 19:18:13
LarsJungclaus
Hallo Experten,
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Leere Zeilen ausblenden-Spalten geht
30.11.2005 19:59:33
Heiko
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
Anzeige

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige