Excel Gruppierung in Script

    Hallo,


    ich muss mit Lotus Scipt eine Excel Gruppierung zuklappen.
    In VB wäre der Befehl wie folgt --> ActiveSheet.Outline.ShowLevels ColumnLevels:=1
    Soweit alles klar. Leider schaffe ich es diesemal nicht den Befehl so umzubasteln, dass Script was damit anfangen kann.
    Könnte mir da bitte jemand helfen.


    Code:
    Set Excel =createObject("Excel.Application")
    Set Sheet =Excel.Workbooks(1).Worksheets(1)
    Excel.Columns("X:AC").Select 'Spalten markieren
    Excel.Selection.Columns.Group 'spalten gruppieren


    'VB Code
    Sheet.Outline.ShowLevels ColumnLevels:=1 'Gruppierung zuklappen --> und genau das schaffe ich nicht. Habe schon folgende Varianten ausprobiert


    'Variante 1 - Scipt
    'Sheet.Outline.ShowLevels.ColumnLevels(1) --> Fehlermeldung: Excel: Die ShowLevels-Eigenschaft des Outline-Objektes kann nicht zugeordnet werden


    'Variante 2 - Script
    'Sheet.Outline.ShowLevels(1).ColumnLevels(1) --> Fehlermeldung: Object variable not set


    'Variante 3 - Script
    'Set TestOutline=Sheet.Outline --> geht
    'TestOutline.ShowLevels.ColumnLevels(1) --> Fehlermeldung: Excel: Die ShowLevels-Eigenschaft des Outline-Objektes kann nicht zugeordnet werden