kontextmenu - es geht nicht mehr weg!
06.07.2003 09:50:17
mehmet
folgendes macro:
Sub ZellenKontextMenuErganzen()
Dim MB As CommandBarControl
Set MB = Application.CommandBars("cell").Controls.Add
With MB
.Caption = "Nachricht 2"
.OnAction = "Nachricht2"
.BeginGroup = True
End With
Set MB = Application.CommandBars("cell").Controls.Add
With MB
.Caption = "Nachricht 3"
.OnAction = "Nachricht3"
End With
End Sub
Private Sub Nachricht2()
MsgBox ("Nachricht2")
End Sub
Private Sub Nachricht3()
MsgBox ("Nachricht3")
End Sub
leider bekomme ich den kontextmenu nicht mehr weg
wenn ich neues blatt oeffne, ist diese kontextmenu
immer dabei.
ich wollte eigendlich, dass diese menu nur fuer diese
mappe sein sollte.
habt ihr eine idee?
gruss
mehmet
Anzeige