Office: (Office 2016) Code optimieren

Hallo zusammen,

ich würde gerne meinen Code optimieren.
Leider komme ich alleine nicht weiter und benötige deshalb eure Hilfe.

Ich habe ein Dropdown erstellt, bei der man zwischen Gesamtansicht, 1., 2., 3. und 4. Quartal wählen kann.

Mit einem bzw. mehreren Makros möchte ich jetzt jeweils das Volumen der einzelnen Quartale ein-/ausblenden.

Fürs Ausblenden habe ich bereits folgenden Code geschrieben:

Private Sub Worksheet_Change(ByVal Target As Range)

'Variable Spalte
If Target.Address = "$A$1" Then

' Nimm den Wert des geänderten Bereiches
Select Case Target.Value

Case "(All figures)"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False

' Blende Spalten aus
Columns("a:cd").EntireColumn.Hidden = False

Case "1. Quartal"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten aus
Columns("t:ab").EntireColumn.Hidden = True
Columns("ac:ak").EntireColumn.Hidden = True
Columns("al:at").EntireColumn.Hidden = True
Columns("bd:bl").EntireColumn.Hidden = True
Columns("bm:bu").EntireColumn.Hidden = True
Columns("bv:cd").EntireColumn.Hidden = True
Columns("cn:cv").EntireColumn.Hidden = True
Columns("cw:de").EntireColumn.Hidden = True
Columns("df:dn").EntireColumn.Hidden = True

Case "2. Quartal"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten aus
Columns("b:j").EntireColumn.Hidden = True
Columns("ac:ak").EntireColumn.Hidden = True
Columns("al:at").EntireColumn.Hidden = True
Columns("au:bc").EntireColumn.Hidden = True
Columns("bm:bu").EntireColumn.Hidden = True
Columns("bv:cd").EntireColumn.Hidden = True
Columns("ce:cm").EntireColumn.Hidden = True
Columns("cw:de").EntireColumn.Hidden = True
Columns("df:dn").EntireColumn.Hidden = True

Case "3. Quartal"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten aus

Columns("b:j").EntireColumn.Hidden = True
Columns("k:s").EntireColumn.Hidden = True
Columns("t:ab").EntireColumn.Hidden = True
Columns("al:at").EntireColumn.Hidden = True
Columns("au:bc").EntireColumn.Hidden = True
Columns("bd:bl").EntireColumn.Hidden = True
Columns("bv:cd").EntireColumn.Hidden = True
Columns("ce:cm").EntireColumn.Hidden = True
Columns("cn:cv").EntireColumn.Hidden = True
Columns("df:dn").EntireColumn.Hidden = True

Case "4. Quartal"
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten aus
Columns("b:j").EntireColumn.Hidden = True
Columns("k:s").EntireColumn.Hidden = True
Columns("t:ab").EntireColumn.Hidden = True
Columns("au:bc").EntireColumn.Hidden = True
Columns("bd:bl").EntireColumn.Hidden = True
Columns("bm:bu").EntireColumn.Hidden = True
Columns("ce:cm").EntireColumn.Hidden = True
Columns("cn:cv").EntireColumn.Hidden = True
Columns("cw:de").EntireColumn.Hidden = True


Case Else
' Blende alle Spalten ein
ActiveSheet.Columns.Hidden = False
' Blende Spalten A:JJ ein
Columns("a:do").EntireColumn.Hidden = False

End Select

' Setze den Cursor zurück auf "A1"
Target.Select

End If

End Sub



Nun würde ich wie gesagt gerne einen Code haben, der mir das Volumen wieder einblendet. Natürlich spezifisch für die einzelnen Quartale.

Kann mir bitte jemand weiterhelfen??

Oder wäre ein Toggle-Button besser?

 

Hola,

zur info:

http://www.office-loesung.de/p/viewtopic.php?f=166&t=791590

Gruß,
steve1da

 

Hi,

du kannst die zusammenhängenden Spalten auch zusammen ausblenden und die nicht zusammenhängenden mittels Befehl Union zusammenfassen - das verkürzt den Code schon um einiges. Für das 1. Quartal z.B. kannst du aus deinen 9 Zeilen diese 1 Zeile machen

Code:

Union(Columns("t:at"), Columns("bd:cd"), Columns("cn:dn")).EntireColumn.Hidden = True

Bis später,
Karin

 

Vielen Dank für eure Hilfe!