Thema: Berechnung von Zeitspanne und Mittelwert

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 Funktion und DatumUndZeit