Mit folgendem Makro erzeuge ich im Konextmenue einen Eintrag mit dem ein Makro aufgerufen werden kann.
Sub Auto_Open()
LeisteVP
End Sub
Sub LeisteVP()
Set x = CommandBars("Cell")
For i = 1 To x.Controls.Count
If x.Controls(i).Caption = "Vertragspartner" Then
i = 0
Set x = Nothing
Exit For
End If
Next i
If i = 0 Then Exit
Sub ' Ist schon vorhanden also raus hier
'Menü-Eintrag erzeugen
Set mypop = CommandBars("Cell2").Controls.Add(Type:=msoControlPopup, Before:=1)
With mypop
.Caption = "Vertragspartner Adressen erzeugen"
Set mybutton = .Controls.Add(Type:=msoControlButton)
mybutton.Caption = "Vertragspartner Adressen erzeugen"
mybutton.OnAction = "Kopieren_VP"
End With
Set x = Nothing
End Sub
Wie entferne ich jetzt bitte beim Schließen der Mappe diesen Eintrag ohne die im Kontexmenue noch vorhandenen indivudell angelegten Aufrufmöglichkeiten mit zu löschen.
Mit dem Aufruf
Sub Auto_Close()
CommandBars("Cell").Reset
End Sub
werden nämlich auch die über andere Mappen angelegte "Cell" Einträge mit gelöscht
Danke