VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Berechnung des ausgewählten Bereiches in der Statusleiste

Gruppe

Menue

Bereich

Context

Thema

Berechnung des ausgewählten Bereiches in der Statusleiste

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