Einblenden und Ausblenden (Makro)

[Vega]

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

[Klaus-Dieter]

Hallo,

sieh dir mal die Standardfunktion Gruppieren unter Daten / Gliederung an.

[Vega]

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

[Kuwer]

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

[Klaus-Dieter]

Hallo,

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.

Die Gruppierung passt leider nicht zu dem was ich erstellt habe

dazu kann ich nichts sagen, weil ich nicht weiß, was du erstellt hast.

[Vega]

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.

[Kuwer]

Hallo Vega,

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

[Vega]

Hallo,

also jetzt stehe ich komplett auf dem Schlauch




   

[Kuwer]

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

[Vega]

Hallo,

vielen Dank!!

Hab meinen Fehler selbst entdeckt :16: 


Jetzt funktioniert alles. Vielen Dank für die Hilfe !