Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema OptionButton
BildScreenshot zu OptionButton OptionButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema SpinButton
BildScreenshot zu SpinButton SpinButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

gruppierung button



Excel-Version: 8.0 (Office 97)

Betrifft: gruppierung button
von: andi
Geschrieben am: 28.08.2002 - 14:55:14

hallo, folgendes problem:
ich habe 3 spalten gruppierungen nebeneinander und zu jeder gruppierung möchte ich einen button . mit dem ich jede einzeln ausblenden kann..
ich habe mich mit diesem befehl rumgespielt, komme aber auf keinen grünen zweig

ActiveSheet.Outline.ShowLevels ColumnLevels:=??

danke für tipps
andi

  

Re: gruppierung button
von: Herbert
Geschrieben am: 28.08.2002 - 19:37:18

hallo andy,
das funktioniert so:
(auch bei blattschutz)
gruß herbert


Sub Spalte_ein_ausblenden()
ActiveSheet.Unprotect
If Sheets("Tabelle7").Columns("F:F"). _
EntireColumn.Hidden = True Then
Sheets("Tabelle7").Columns("F:F"). _
EntireColumn.Hidden = False
ElseIf Sheets("Tabelle7").Columns("F:F"). _
EntireColumn.Hidden = False Then
Sheets("Tabelle7").Columns("F:F"). _
EntireColumn.Hidden = True
End If
ActiveSheet.Protect Contents:=True, UserInterfaceOnly:=True
End Sub
  

 

Beiträge aus den Excel-Beispielen zum Thema "gruppierung button"