Office: Kontextmenü mit VBA erstellen

sttmkran · 8. Juli 2014

Jep. Sieht wie folgt aus:

Code:

Public Function NewMenu()
Dim cbr As CommandBar
Dim cbb As CommandBarButton
On Error Resume Next
CommandBars("cbrModal").Delete
On Error GoTo 0
Set cbr = CommandBars.Add("cbrModal", msoBarPopup, False, True)
Set cbb = cbr.Controls.Add(msoControlButton)
With cbb
.OnAction = "=Kontextmenuefunktion()"
.Caption = "Meldung anzeigen"
End With
'cbr.ShowPopup

End Function

Public Function Kontextmenuefunktion()
MsgBox "Meldung"
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktion wird beim Laden des Formulars aufgerufen, deswegen ist das Popup auskommentiert. Anschließend weise ich der Textbox das Menü zu...

GuidoS · 8. Juli 2014

Wie heißt das Modul in dem die Funktion Kontextmenuefunktion() abgelegt ist.
Das Modul darf nicht den gleichen Namen haben.
Sonst fällt mir auch nichts mehr ein.

sttmkran · 8. Juli 2014

Die Funktion ist nicht in einem Modul abgelegt.
Sie steht direkt mit im Klassenobjekt des betreffenden Formulars. Ist ja auch nur ein Einzeiler, bzw. später ein 3Zeiler..

Oder ist es zwingend notwendig solch eine Funktion auszulagern?

Danke für deine Hilfe!

GuidoS · 8. Juli 2014

Das ist egal, hab ich gerade ausprobiert.
Dann weiß ich auch nicht weiter. :-(

sttmkran · 9. Juli 2014

Ok, danke dir!

Hat vielleicht noch jemand anders eine Idee?

Marsu65 · 9. Juli 2014

Allerdings konnte ich mir schon ein Beispiel besorgen, das alleinstehend ohne Probleme läuft, aber sobald ich den Code 1:1 in meine DB übertrage, wird auch da die Funktion nicht gefunden.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Datenbank komprimieren/reparieren; wenn das nicht hilft:
Code kompilieren (fehlerfrei?); wenn das nicht hilft:
neue Datenbank erstellen und alle Objekte importieren.

Office: Kontextmenü mit VBA erstellen

Kontextmenü mit VBA erstellen

Kontextmenü mit VBA erstellen

Kontextmenü mit VBA erstellen

Kontextmenü mit VBA erstellen - Similar Threads - Kontextmenü VBA erstellen

Kontextmenü global deaktivieren

Fehlender Neuer Kommentar und Neue Notiz im Kontextmenü von Excel

Das Kontextmenü „E-Mail“ wird in Outlook für Mac nicht angezeigt, wenn Sie mit der ...

Excel 2016 rechte Mausklick kontextmenü fehlt

Fehlen des Eintrages Hyperlink im Kontextmenü

Fehler im Word-Kontextmenü (Systran)

Outlook 2010 Grafikdownload funktioniert nicht mehr