Wenn Sie bestimmte Spalten mit einer Schaltfläche ausblenden müssen, können Sie diesen Code verwenden. Der Befehlsschaltflächentext wird sogar in Spalten ausblenden und dann wieder in Spalten einblenden geändert.

Sub Hide_C ()

Dim C_ell As Range ActiveSheet.Shapes.Range (Array („Button 2“)). Wählen Sie If Selection.Characters.Text = „Spalten einblenden“, dann Columns.Hidden = False Selection.Characters.Text = „Colides ausblenden“

Sonst für jede C_ell in Range („B1“, Cells (1, Columns.Count) .End (xlToLeft))

Wenn C_ell = „x“, dann C_ell.Columns.Hidden = True Nächste Auswahl.Characters.Text = „Spalten einblenden“

End If Range („A2“). Wählen Sie End Sub