Excel Zellen rücksetzen

flinx · 07.08.2004, 17:38

Kannst auch den Button im Worksheet vorm Schließen wieder löschen lassen und beim Öffnen anlegen (in Workbook_Open, Workbook_BeforeClose jeweils das Makro zum Anlegen bzw. Entfernen des Buttons aufrufen bzw. das entsprechende reingeben).

Bsp:
Anlegen:

Code:

Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _
        msoControlButton, ID:=2949, Before:=11
With Application.CommandBars("Worksheet Menu Bar")
    .Controls(11).Style = msoButtonCaption
    .Controls(11).Caption = "Mein_Name"
    .Controls(11).OnAction = "Mein_Makro"

Entfernen:

Code:

Application.CommandBars("Worksheet Menu Bar").Controls("Mein_Name").Delete

oder so ähnlich halt...

hth

07.08.2004, 17:38	#9
flinx Inventar Registriert seit: 08.04.2001 Beiträge: 3.101	Kannst auch den Button im Worksheet vorm Schließen wieder löschen lassen und beim Öffnen anlegen (in Workbook_Open, Workbook_BeforeClose jeweils das Makro zum Anlegen bzw. Entfernen des Buttons aufrufen bzw. das entsprechende reingeben). Bsp: Anlegen: Code: Application.CommandBars("Worksheet Menu Bar").Controls.Add Type:= _ msoControlButton, ID:=2949, Before:=11 With Application.CommandBars("Worksheet Menu Bar") .Controls(11).Style = msoButtonCaption .Controls(11).Caption = "Mein_Name" .Controls(11).OnAction = "Mein_Makro" Entfernen: Code: Application.CommandBars("Worksheet Menu Bar").Controls("Mein_Name").Delete oder so ähnlich halt... hth

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)