Spalten ausblenden über eine Taste
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