Gruppierung nur, wenn noch nicht vorhanden!!
25.11.2003 13:54:43
Jenny
das hier ist mein Code zur Erstellung einer Ansicht eines Tabellenblatts.
Mein Problem hierbei ist aber, dass die Gruppierung natürlich jedesmal durchgeführt wird, sobald das Makro aufgerufen wird und sich so beliebig viele Levels mit ein- und derselben Gruppierung ergeben...
Frage: Wie kann ich sagen: Führe die Gruppierung nur aus, wenn diese Gruppierung noch nicht existiert.
--------------------------------------------------------------------------------
Sub Ansicht_Abteilung1()
ActiveWorkbook.Worksheets("Blatt2").Activate
'das wird ausgeblendet
Range("BS:BY").Select
Selection.EntireColumn.Hidden = True
'das wird gruppiert
Columns("K:S").Select
Selection.Columns.Group
Columns("X:AF").Select
Selection.Columns.Group
Columns("AK:BC").Select
Selection.Columns.Group
Columns("BI:BK").Select
Selection.Columns.Group
End Sub
--------------------------------------------------------------------------------
Danke für Eure Mithilfe,
Jenny