Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Einblenden und Ausblenden (Makro)
#1
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
Antwortento top
#2
Hallo,

sieh dir mal die Standardfunktion Gruppieren unter Daten / Gliederung an.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#3
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 Undecided
Antwortento top
#4
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Vega
Antwortento top
#5
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.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
[-] Folgende(r) 1 Benutzer sagt Danke an Klaus-Dieter für diesen Beitrag:
  • Vega
Antwortento top
#6
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.
Antwortento top
#7
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. Wink

Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Vega
Antwortento top
#8
Hallo,

also jetzt stehe ich komplett auf dem Schlauch Undecided Confused




   
Antwortento top
#9
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
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Vega
Antwortento top
#10
Hallo,

vielen Dank!!

Hab meinen Fehler selbst entdeckt 16 


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


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste