Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Spalten einer Mehrbereichsauswahl ausblenden.

Gruppe

Bereich

Problem

Wie kann ich die Spalten einer Mehrbereichsauswahl ausblenden?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub MultiSelectHidden()
   Const csHidden As String = "Spalten ausblenden"
   Const csVisible As String = "Spalten einblenden"
   With ActiveSheet.Buttons(1)
      If .Caption = csHidden Then
         Selection.EntireColumn.Hidden = True
         .Caption = csVisible
      Else
         Columns.Hidden = False
         .Caption = csHidden
      End If
   End With
End Sub