Re: gruppierung / ShowDetail
21.10.2002 17:55:19
edi
Danke Peter für den Tip.Für alle anderen, die es interessiert wie es geht:
Private Sub CommandButton2_Click()
'***** Einblenden ganze Ebene ******
'ActiveSheet.Unprotect password:="PW"
'ActiveSheet.Outline.ShowLevels RowLevels:=5, ColumnLevels:=2
'ActiveSheet.protect password:="PW"
'*** Einblenden einzelne Gruppierung innerhalb einer Ebene****
'ActiveSheet.Unprotect password:="PW"
ActiveSheet.Rows(12).ShowDetail = True 'Zeile mit dem + Zeichen
ActiveSheet.Columns(5).ShowDetail = True 'Spalte mit dem + Zeichen
'ActiveSheet.protect password:="PW"
End Sub
Private Sub CommandButton3_Click()
'***** Ausblenden ganze Ebene ******
'ActiveSheet.Unprotect password:="PW"
'ActiveSheet.Outline.ShowLevels RowLevels:=1, ColumnLevels:=1
'ActiveSheet.protect password:="PW"
'**** Ausblenden einzelner Gruppierungen innerhalb einer Ebene******
'ActiveSheet.Unprotect password:="PW"
ActiveSheet.Rows(12).ShowDetail = False ' Reihe mit dem - Zeichen
ActiveSheet.Columns(5).ShowDetail = False 'Spalte mit dem - Zeichen
'ActiveSheet.protect password:="PW"
End Sub
Gruß edi