Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Berechnung des ausgewählten Bereiches in der Statusleiste

Gruppe

Context

Problem

Über das Zellkontextmenü (rechte Maustaste) soll in der Statusleiste eine Multiplikation der ausgewählten Zellwerte mit 3 angezeigt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.

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

    

Beiträge aus dem Excel-Forum zu den Themen Menue und Context