Spalten einblenden / ausblenden
31.10.2019 11:11:47
Vega_DD
zurzeit habe ich folgendes Makro im Einsatz zum Ausblenden von Spalten.
Sub Makro1()
ActiveSheet.Protect "XX", UserInterfaceOnly:=True
Columns("T:X").Hidden = Not Columns("T:X").Hidden
End Sub
Sub Makro2()
ActiveSheet.Protect "XX", UserInterfaceOnly:=True
Columns("Z:AD").Hidden = Not Columns("Z:AD").Hidden
End Sub
Sub Makro3()
ActiveSheet.Protect "XX", UserInterfaceOnly:=True
Columns("AF:AJ").Hidden = Not Columns("AF:AJ").Hidden
End Sub
Sub Makro4()
ActiveSheet.Protect "XX", UserInterfaceOnly:=True
Columns("B:F").Hidden = Not Columns("B:F").Hidden
End Sub
Jetzt möchte ich aber das sobald man z.B. auf Button 2 drückt, das erste wieder ausgeblendet wird.
Das ganze auch bei den anderen. Ich möchte also das immer nur von einem Button die entsprechenden Spalten angzeigt werden.
Wäre das möglich ?
Mfg