Formularsteueerelement Schaltfläche

Question

Hallo an Euch alle,

mein Problem:
Ich habe einen Ordner mit 16 Tabellen-Blättern.
In jedem Blatt ist oben das gleiche einkopierte Formularsteuerelement Schaltfläche(Button), mit welchem immer das gleiche UserFormular zur bearbeitung des Tabellenblattes eingeblendet wird.
Ab einem vorgegebenen Datum sollen alle 16 Schaltfächen ausgeblendet werden, damit für einige Tage bis zu fertigen Auswertung niemand etwas ändern kann. Danach möchte ich alle Schaltflächen wieder einschalten und ein neues Datum setzen.

Ich habe es schon probiert als Versuch mit

Sub ScaltflächeeEinAus()

Tabelle4.Shapes("Button 3").DrawingObject.Visible = False
Tabelle5.Shapes("Button 3").DrawingObject.Visible = False
Tabelle6.Shapes("Button 3").DrawingObject.Visible = False
usw
Tabelle4.Shapes("Button 3").DrawingObject.Visible = True
Tabelle5.Shapes("Button 3").DrawingObject.Visible = True
Tabelle6.Shapes("Button 3").DrawingObject.Visible = True
usw
End Sub
das funktioniert aber immer nur bei einem Tabellenblatt.

Was mache ich falsch?
Für Euere Hilfe schon im Vorraus herzlichen Dank

Freind

Answer 1

Wahrscheinlich haben die Buttons auf den Seiten unterschiedliche Nummern. Würde mich wundern, wenn die alle Button 3 heißen.

Gruß Flupo

Answer 2

Hallo Flupo,

danke für Deine Antwort.

Doch wurde der Schaltfäche vor dem Kopieren einen Namen gegeben, kopiert und in die nächsten Blätter eingefügt.
Somit kann ich nicht genau feststellen, ob sich die Schaltflächen-Nummer beim Einkopieren verändert hat.

Bei einem Versuch mit einem Neuen Ordner mit mehreren Tabellenblättern, einfügen einer Formularsteuerelement Schaltfläche und diese in die restlichen Tabellenblätter einkopiert, hat sich die Schaltflächen-Nummer nicht verändert.
Muß ich vielleicht das Makro für jedes Blatt nochmal schreiben?
Ich verwende Excel 2013.

Freind