automatisch gruppieren
07.06.2004 14:31:25
Erwin G
Könnte mir jemand helfen folgenes Makro zu verändern
anstatt ausblenden möchte ich die Zeilen gruppieren
Vielen Dank zum voraus
--------------------
Sub Ausblenden1()
' Makro4 Makro
' Makro am 28.05.2004 von erwing aufgezeichnet
Dim z As Range
Application.ScreenUpdating = False
For Each z In Range("C4:C57")
z.EntireRow.Hidden = (z.Value = 0)
Next
Application.ScreenUpdating = True
End Sub