Command Bar Menü
03.07.2007 09:16:05
Marion
ich habe mir einen neuen Menüpunkt geschrieben mit Hilfe des folgenden Codes:
Sub Workbook_Open ()
Set ML = Application.CommandBars("Worksheet Menu Bar")
Set U1 = ML.Controls.Add (Type:=msoControlPopup)
...
End Sub
Das funktioniert auch alles einwandfrei allerdings hatte ich zu Beginn vergessen den Menüpunkt jeweils beim Schließen löschen zu lassen. Mittlerweile habe ich 2x meinen Menüpunkt in der Leiste stehen und bekomme diesen nicht mehr gelöscht. Es wird lediglich beim öffnen und schließen der Datei der letzte Menüpunkt gelöscht.
Wie kann ich das Problem beheben - ist wahrscheinlich super einfach aber ich komm gerade nicht drauf!
Danke
Marion
P.s.: Löschen lasse ich den Menüpunkt mit folgendem Code:
Private Sub Workbook_BeforeClose (Cancel As Boolean)
On Error GoTo 0
Application.CommandBars("worksheet menu bar").Controls("Einlesen").Delete
End Sub
Anzeige