Wert aus Kontextmenü zeigen lassen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Wert aus Kontextmenü zeigen lassen
von: Mathias Läber
Geschrieben am: 07.04.2005 10:11:05
Hallo alle zusammen,
gibt es eine Möglichkeit, wenn man aus dem Kontextmenü der Zellen einen Befehl wählt (z.B. kopieren oder einfügen), sich die Caption des Befehls als MsgBox ausgeben zulassen? Möchte das gern weiter bearbeiten.
Bsp.: In Zelle A1 klicke ich die rechte Maustaste, wähle den Befehl -Kopieren-, dann soll eine MsgBox erscheinen mit dem Wort -Kopieren-
Das soll dann für jeden Menüeintrag so sein
Vielen Dank für eure Hilfe

Bild

Betrifft: AW: Ich wüsste es nur so, wenns reicht ?
von: chris b
Geschrieben am: 07.04.2005 10:21:48
Hallo Mathias, ich kann dir leider erst einmal nur so weiterhelfen.
Und zwar baust du damit einfach das Cells Menü neu auf und wenn du dann eben auf Kopieren klickst starte das Makro Kopieren und das Makro soll dann eben als erstes eine msgbox ausführen.Sorry besser weiß ich es nicht.

Sub KonTextMenu()
Dim Ctrl As CommandBarButton
    With CommandBars("Cell")
        While .Controls.Count > 0
            On Error Resume Next
            .Controls(1).Delete
        Wend
        Set Ctrl = .Controls.Add(msoControlButton)
        With Ctrl
            .Caption = "MeinBefehl"
            .OnAction = "MeinMakro"
        End With
    End With
End Sub

Bild

Betrifft: AW: ein fertiges beispiel.
von: chris b
Geschrieben am: 07.04.2005 10:25:47
IN ein Modul:

Sub KonTextMenu()
Dim Ctrl As CommandBarButton
    With CommandBars("Cell")
        While .Controls.Count > 0
            On Error Resume Next
            .Controls(1).Delete
        Wend
        Set Ctrl = .Controls.Add(msoControlButton)
        With Ctrl
            .Caption = "kopieren"
            .OnAction = "coppy"
        End With
    End With
End Sub

in ein neues Modul u.B

Sub coppy()
MsgBox ("kopieren"), , ActiveCell.Address
ActiveCell.Copy
End Sub


und so hättest du dann den copy befehl fertig.
Bild

Betrifft: AW: Wert aus Kontextmenü zeigen lassen
von: Mathias Läber
Geschrieben am: 07.04.2005 10:40:08
Nein hat leider nicht geklappt. Aber danke für Deine Mühe ....
Noch ne kurze Frage
Kann man beim -onAction- Befehl die Anzeige des Menüs (Caption)an eine Variable übergeben? Das würde vielleicht mein Problemchen lösen =:))
Grüße
Bild

Betrifft: AW: Wert aus Kontextmenü zeigen lassen
von: Bert
Geschrieben am: 07.04.2005 10:47:47
Hi,
verstehe ich das richtig, dass die Originalfunktionalität erhalten bleiben soll und
zusätzlich eine Variable übergeben wird?
mfg Bert
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Wert aus Kontextmenü zeigen lassen"