mit unten stehender Prozedur und einer Tastenkombination, blende ich vierCommandButton gleichzeitig aus, bzw. wieder ein. Funktioniert auch alles.
Nun meine Frage: Gibt es eine Möglichkeit, die Prozedur schlanker zu gestalten?
Mir kommt das alles sehr heftig vor. Ich selber habe noch nicht die Fähigkeit dazu.
Würde mir bitte jemand dabei helfen?
Tastenkombination: Strg+Umschalt+Z
Dim EinAus As Boolean
EinAus = Worksheets("Tabelle2").Shapes("CommandButton1").Visible
EinAus = Worksheets("Tabelle2").Shapes("CommandButton2").Visible
EinAus = Worksheets("Tabelle2").Shapes("CommandButton3").Visible
EinAus = Worksheets("Tabelle2").Shapes("CommandButton4").Visible
EinAus = IIf(EinAus = True, False, True)
Worksheets("Tabelle2").Shapes("CommandButton1").Visible = EinAus
Worksheets("Tabelle2").Shapes("CommandButton2").Visible = EinAus
Worksheets("Tabelle2").Shapes("CommandButton3").Visible = EinAus
Worksheets("Tabelle2").Shapes("CommandButton4").Visible = EinAus
Danke schon mal
Gruss Josef