Gruppe
Allgemein
Problem
Wie kann ich die Spalten einer Mehrbereichsauswahl ausblenden?
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