Erweiterung Kontextmenue
20.12.2021 14:13:30
Bernd
ich habe ein kleines Excel-Problem, was mir bis jetzt weder google noch die hiesige Suchfunktion lösen konnte, deswegen diese Frage an euch :)
Ich möchte in einem Tabellenblatt das Kontextmenue (RM) erweitern. Das habe ich mit folgenden Zeilen geschafft. Allerdings funktioniert das nur in den Zellen die nicht zu meiner Tabelle gehören. Daher meine Frage, gibt es einen Unterschied zwischen Tabellen und Tabellen? :)
Woran erkenne ich ihn und wie passe ich meinen Code an?
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim MB As CommandBarControl
Application.CommandBars("Cell").Reset
Set MB = Application.CommandBars("Cell").Controls.Add
With MB
.Caption = "Ordner 1 öffnen"
.OnAction = "OrdnerEinsOeffnen"
.FaceId = 23
End With
Set MB = Application.CommandBars("Cell").Controls.Add
With MB
.Caption = "Ordner 2 öffnen"
.OnAction = "OrdnerZweiOeffnen"
.FaceId = 23
End With
Set MB = Nothing
End Sub
Private Sub Worksheet_Deactivate()
Application.CommandBars("Cell").Reset
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.CommandBars("Cell").Reset
End Sub
Bernd