Gruppe
Menue
Problem
Über das Zellkontextmenü (rechte Maustaste) soll in der Statusleiste eine Multiplikation der ausgewählten Zellwerte mit 3 angezeigt werden.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call CmdDelete
Application.StatusBar = False
End Sub
Private Sub Workbook_Open()
Dim oBtn As CommandBarButton
Application.DisplayStatusBar = True
Call CmdDelete
Set oBtn = Application.CommandBars("Cell").Controls.Add
With oBtn
.Caption = "DreiMal"
.BeginGroup = True
.OnAction = "Multiplizieren"
End With
End Sub
StandardModule: basMain
Sub Multiplizieren()
Application.StatusBar = "Auswahl * 3 = " & _
WorksheetFunction.Sum(Selection) * 3
End Sub
Sub CmdDelete()
On Error GoTo ERRORHANDLER
Application.CommandBars("Cell").Controls("DreiMal").Delete
ERRORHANDLER:
End Sub