Office: Spalten Gruppieren oder ausblenden

Olli79 · 9. Juli 2008

Hallo zusammen!

Ich möchte in einem Excelsheet einen gewissen Bereich an Spalten ausblenden. Zunächst dachte ich daran, sie über eine Schleife und "hidden" zu verstecken. Hat mir aber nur unverständliche Fehler geworfen. Dann wollte ichs über ein toggle-Button einfach Gruppieren. Allerdings passiert nun gar nichts mehr (compiliert, keine Fehler, nix passiert)

Code:

Code:

Private Sub ToggleButton1_Click()

If ToggleButton1.Value = False Then

ToggleButton1.Caption = "Show Next Fiscal Year"

ActiveSheet.Columns("AP:BA").Group

ElseIf ToggleButton1.Value = True Then

ToggleButton1.Caption = "Hide Next Fiscal Year"

ActiveSheet.Columns("AP:BA").Ungroup

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was zur Hölle mach ich falsch?

P.S.: Normalerweise entwickel ich mit C#, darum sind meine VBA Kenntnisse ziemlich bescheiden, also habt Nachsicht *Smilie

:)

jinx · 11. Juli 2008

Moin, Olli79,

ich nehme an, Du möchtest die Gruppierung nur anzeigen oder ausblenden (sie soll aber vorhanden bleiben):

Code:

Private Sub ToggleButton1_Click()

If ToggleButton1.Value Then
ToggleButton1.Caption = "Hide Next Fiscal Year"
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Else
ToggleButton1.Caption = "Show Next Fiscal Year"
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Olli79 · 11. Juli 2008

Hallo jinx!

Ja das ist schon fast das was ich suche (habs grad getestet). Allerdings versteckt er mir nun alle Spalten. Kann man dafür auch einen Bereich definieren?

edit zur Erläuterung: Ich würde eben dem User gerne die Möglichkeit geben, auf Knopfdruck bestimmte Bereiche ein/auszublenden. ALso die Spalten von C bis K oder von M bis S etc.

Noch ein edit:

Habs mal so probiert:

Code:

Private Sub ToggleButton1_Click()

If ToggleButton1.Value Then

ToggleButton1.Caption = "Hide Next Fiscal Year"
ActiveSheet.Columns("AP:BA").Select
Selection.Columns.Hidden = False

Else

ToggleButton1.Caption = "Show Next Fiscal Year"
ActiveSheet.Columns("AP:BA").Select
Selection.Columns.Hidden = True

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Allerdings ignoriert er beim "hide" das Ende des Bereichs und versteckt alles Nachfolgende *Smilie

jinx · 11. Juli 2008

Moin, Olli79,

ich war davon ausgegangen, dass die Gruppierung bereits besteht.
Code:

Private Sub ToggleButton1_Click()
Gruppierung
If ToggleButton1.Value Then
ToggleButton1.Caption = "Hide Next Fiscal Year"
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=2
Else
ToggleButton1.Caption = "Show Next Fiscal Year"
ActiveSheet.Outline.ShowLevels RowLevels:=0, ColumnLevels:=1
End If

End Sub

Sub Gruppierung()
Static sblnEingefügt As Boolean
On Error Resume Next
If Not sblnEingefügt Then
ActiveSheet.Columns("AP:BA").Columns.Group
sblnEingefügt = True
End If
End Sub

Sub GruppierungAus()
If sblnEingefügt Then ActiveSheet.Columns("AP:BA").Columns.Ungroup
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte am Ende (beim Schließen der Mappe oder Verlassen der Tabelle) GruppierungAus aufrufen.

Olli79 · 11. Juli 2008

Vielen Dank *Smilie

Office: Spalten Gruppieren oder ausblenden

Spalten Gruppieren oder ausblenden

Spalten Gruppieren oder ausblenden

Spalten Gruppieren oder ausblenden

Spalten Gruppieren oder ausblenden - Similar Threads - Spalten Gruppieren ausblenden

VBA - Wenn Eintrag in Spalte vorhanden dann aktualisieren, sonst neue Zeile

Spalte gruppieren und aus den Inhalten jeweils eine Tabelle

Wiederholende Erste Spalte autom. "Gruppieren"?

Zeilen gruppieren und zugehörige Spalte aufteilen

In Tabelle Werte gruppieren in zusätzliche Spalten

Zeilen / Spalten gruppieren einklappen / ausklappen

Gruppierte Spalten Ein-/Ausblenden bei gesperrtem Arbeitsblatt