Commandbutton ansprechen
Bowl
habe folgendes Problem:
Habe in Excel ein Makro, dass ein neues Tabellenblatt erstellt, und die Daten aus dem vorhandenen in dieses kopiert. Währenddiesem Vorgang werden 2 Buttons auf dem neu erstellten Sheet hinzufügt:
Sub Löschen_Button()
Dim tarCell As Range
Set tarCell = Range("L5:N6")
ActiveSheet.Buttons.Add(0, 0, 0, 0).Select
With Selection
.Top = tarCell.Top
.Left = tarCell.Left
.Height = tarCell.Height
.Width = tarCell.Width
.Text = "Auftrag löschen"
.OnAction = "Modul1.auftragloeschen"
.Locked = True
End With
ActiveSheet.Protect ' Button ist standardmäßig gesperrt
Sheets("Vorlage").Activate
End Sub
Will den Button standardmäßig sperren - wie auch das gesamte Blatt gegen Bearbeitung gesperrt ist, wenn man es über die Register unten anklickt(zur Sicherheit gegen User Fehler und so ;) ).
Auf meinem Standardtabellenblatt (aus dem auch die Kopie auf ein neues erfolgt, habe ich zusätzlich eine Suchen-Funktion die die erstellen Tabellenblätter entsperrt und aktiviert - mein problem ist nur, dass eben egal wie ich es mache die Buttons nicht entsperrt werden - Andere Möglichkeiten wären evtl. .visible enabled wohl nur bedingt.
Grüße