Zeilen ausblenden
28.11.2006 13:18:44
Christian
Auf meine ursprüngliche Anfrage, alle Zeilen, die im Bereich a1:a50 Leerzellen enthalten, auszublenden, hat mir ein Profi im Forum nachfolgendes Makro zur Verfügung gestellt.
Sub Leerezeilen_ausblenden()
Dim Bereich As Range
With Range("a1:a50")
On Error Resume Next
Set Bereich = .SpecialCells(xlCellTypeConstants, 23)
Set Bereich = Union(Bereich, .SpecialCells(xlCellTypeFormulas, 23))
.EntireRow.Hidden = True
Bereich.EntireRow.Hidden = False
On Error GoTo 0
End With
End Sub
Funktioniert perfekt bei Werten. Habe ich allerdings im Bereich a1:a50 in einer Zelle eine mathematische Formel und somit ein Rechenergebnis stehen, wird diese Zeile auch ausgeblendet. In diesem Fall soll die Zeile nicht ausgeblendet werden.
Vielen Dank im voraus für Eure Unterstützung,
herzliche Grüße, Christian