Spalten mit einer Schaltfläche ausblenden

Anonim

Wenn Sie bestimmte Spalten mit einer Schaltfläche ausblenden müssen, können Sie diesen Code verwenden. Es wird sogar den Befehlsschaltflächentext in Hide Columns ändern und dann erneut in Unhide Columns ändern.

Unter Hide_C()

Dim C_ell As Range

ActiveSheet.Shapes.Range(Array("Button 2")).Auswählen

If Selection.Characters.Text = "Spalten einblenden" Then

Columns.Hidden = False

Selection.Characters.Text = "Spalten ausblenden"

Anders

For Each C_ell In Range("B1", Cells(1, Columns.Count).End(xlToLeft))

Wenn C_ell = "x" Then C_ell.Columns.Hidden = True

Nächste

Selection.Characters.Text = "Spalten einblenden"

Ende Wenn

Bereich("A2").Wählen

End Sub