Zeilen ausblenden

13/10/2012 - 20:16 von Peter | Report spam
Hallo ,
brauche Makro Hilfe zum ausblenden von Zeilen.
In einer Tabelle sind Zahlen in Spalte A,
es sind dabei nicht alle belegt z.B.
A4-A11 =Zahl
A12 -A20 = leer
A21-A26 =Zahl
usw.
Ich möchte alle leeren Zeilen komplett ausblenden und wieder einblenden

Rows(???).EntireRow.Hidden = True

mfg
Peter
 

Lesen sie die antworten

#1 Claus Busch
13/10/2012 - 20:27 | Warnen spam
Hallo Peter,

Am Sat, 13 Oct 2012 20:16:29 +0200 schrieb Peter:

In einer Tabelle sind Zahlen in Spalte A,
es sind dabei nicht alle belegt z.B.
A4-A11 =Zahl
A12 -A20 = leer
A21-A26 =Zahl
usw.
Ich möchte alle leeren Zeilen komplett ausblenden und wieder einblenden



probiere es mal so:

Sub Ausblenden()
Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & LRow).SpecialCells(xlCellTypeBlanks) _
.EntireRow.Hidden = True
End Sub

Sub Einblenden()
Dim LRow As Long

LRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & LRow).EntireRow.Hidden = False
End Sub


Mit freundlichen Grüßen
Claus Busch
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen