Funktionen der Menüs auf rechte Maustaste legen (Excel)

[Gert Presch]

die Funktionen, die per re. Maustaste zur Verf. stehen sind ja begrenzt.
(Wie) Kann man Funktionen, die man oft braucht auf die re maust. legen?
--
Gert Presch
Answers please also DIRECTLY to :
mailto:gert....@rz-kiru.de

[Brigitte Maurer]

Hallo Gert

wenn Du Excel 2000 oder XP verwendest, dann schau mal unter

http://www.bernd-augustin.de

Dort gibt es ein AddIn zum anpassen des Kontextmenüs "Cell" (das
gebräuchlichste)
Vielleicht ist dort das dabei, was Du suchst.

Ansonsten helfen Dir eventuell dies Makros weiter:

Markierung drucken wird dem Kontextmenü zugefügt und auf Platz 1 gesetzt.

Sub KonTextMenüErgänzen()
Dim Ctrl As CommandBarButton

On Error Resume Next
With CommandBars("Cell")
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Markierung drucken"
.OnAction = "Personl.xls!MeineMakros.Markierungdrucken"
.FaceId = 4
.Move before:=1
End With
End With
End Sub

Folgendes Makro so z.B. in die Personl.xls eintragen

Personl.xls!MeineMakros.Markierungdrucken

Sub Markierungdrucken()
On Error Resume Next
Selection.PrintOut Copies:=1, Collate:=True
End Sub

So setzt Du das Kontextmenü wieder zurück

Sub Kontext_Menü_Zurücksetzen()
Dim Ctrl As CommandBarButton
CommandBars("Cell").Reset
End Sub

Gruß Gitte