Kontextmenüeintrag "Zeile löschen"
27.03.2020 08:44:50
Peer
Ich habe einen Kontextmenü in meiner Mappe mit zwei Einträgen.
Beim ersten Eintrag öffnet ein UF und der zweite Eintrag soll in der aktiven Zeile den Inhalt löschen.
Ich habe mal eine Beispielmappe rein gestellt.
Achtung. Das Schließen der Mappe funktioniert nur über den Reiter "Erfassungsbeleg".
https://www.herber.de/bbs/user/136146.xlsm
Und hier der Code...
Public Sub CreateCommandBar()
Dim objCommandBar As CommandBar
Dim objCommandBarButton As CommandBarButton
Dim objCommandBarButton2 As CommandBarButton
Call DeleteCommandBar
Set objCommandBar = Application.CommandBars.Add(Name:=KONTEXTMENU_NAME, _
Position:=msoBarPopup, Temporary:=True)
Set objCommandBarButton = objCommandBar.Controls.Add(msoControlButton, , 1)
Set objCommandBarButton2 = objCommandBar.Controls.Add(msoControlButton, , 2)
With objCommandBarButton
.Caption = "Arbeitstag öffnen"
.FaceId = 9146
.Style = msoButtonIconAndCaption
.OnAction = "ShowDay"
End With
With objCommandBarButton2
.Caption = "Zeile löschen"
.FaceId = 47
.Style = msoButtonIconAndCaption
'was schreibe ich hier für .OnAction rein?
End With
End Sub
Ich denke hier evetuell an einen "mso..." Befehl von Excel.
Vielleicht kann jemand mir auf die Sprünge helfen.
Vielen Dank im Voraus.
LG
Peer