ich moechte ein popup auf rechtsklik erstellen
dabei gehen mir die ueblichen cut,copy,...usw. verloren
kann ich meins in das voreingestellte menu einfuegen?
danke im vorraus
gruesse aus Athen
script:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim stoBar As CommandBar
Dim stoButton As CommandBarButton
Cancel = True
On Error Resume Next
Application.CommandBars("test").Delete
On Error GoTo 0
Set stoBar = Application.CommandBars.Add("test", msoBarPopup)
Set stoButton = stoBar.Controls.Add
With stoButton
.Caption = "pstv"
.OnAction = "paste_value"
.Style = msoButtonCaption
End With
stoBar.ShowPopup
End Sub