Hallo zusammen,
zurzeit habe ich folgendes Makro im Einsatz zum Ausblenden von Spalten.
Code:
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
Das ganze habe ich jeweils einem Button zugewiesen.
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.
Ist das überhaupt möglich?
Mit freundlichen Grüßen
Hallo,
sieh dir mal die Standardfunktion Gruppieren unter Daten / Gliederung an.
Hallo,
danke für den Tipp, aber ich möchte das lieber mit den Buttons beibehalten.
Die Gruppierung passt leider nicht zu dem was ich erstellt habe
Hallo Vega,
weise allen Buttons dieses Makro zu:
Sub Makro1()
Dim strButton As String
strButton = ActiveSheet.Shapes(Application.Caller).Name
ActiveSheet.Protect "XX", UserInterfaceOnly:=True
Columns("T:X").Hidden = Not strButton = "Button 1"
Columns("Z:AD").Hidden = Not strButton = "Button 2"
Columns("AF:AJ").Hidden = Not strButton = "Button 3"
Columns("B:F").Hidden = Not strButton = "Button 4"
End Sub
Gruß Uwe
Hallo,
Zitat:danke für den Tipp, aber ich möchte das lieber mit den Buttons beibehalten.
Schaltflächen stellt die Funktion auch zur Verfügung, nur etwas kleiner als selbst definierte.
Zitat:Die Gruppierung passt leider nicht zu dem was ich erstellt habe
dazu kann ich nichts sagen, weil ich nicht weiß, was du erstellt hast.
Hallo zusammen,
danke für die Hilfe!
@Klaus-Dieter
sorry, hätte ich gleich dazu sagen sollen.
@Kuwer
den Buttons habe ich das entsprechende Makro zugwiesen.
Außerdem habe ich den Namen "Button 1" usw. angepasst.
Leider passiert bei dem Klick auf die Buttons jetzt nichts.
Die Spalten werden nicht eingeblendet.
Wenn ich sie manuell einblende und die Buttons betätige, werden sie ordnungsgemäß ausgeblendet.
Hallo Vega,
(31.10.2019, 12:03)Vega schrieb: [ -> ]Außerdem habe ich den Namen "Button 1" usw. angepasst.
Leider passiert bei dem Klick auf die Buttons jetzt nichts.
füge in das Makro bitte folgende Zeile zusätzlich ein:
MsgBox strButton
Damit kannst Du sehen, wie Deine Buttons wirklich heißen.
Gruß Uwe
Hallo,
Sub Makro1()
Dim strButton As String
strButton = ActiveSheet.Shapes(Application.Caller).Name
MsgBox strButton
ActiveSheet.Protect "XX", UserInterfaceOnly:=True
Columns("T:X").Hidden = Not strButton = "Button 1"
Columns("Z:AD").Hidden = Not strButton = "Button 2"
Columns("AF:AJ").Hidden = Not strButton = "Button 3"
Columns("B:F").Hidden = Not strButton = "Button 4"
End Sub
Gruß Uwe
Hallo,
vielen Dank!!
Hab meinen Fehler selbst entdeckt :16:
Jetzt funktioniert alles. Vielen Dank für die Hilfe !
