Addin in Excel 2003 mit Alt + F8 aktivieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Open() If Val(Application.Version) <= 11 Then Dim symb As CommandBar Dim AA As Object Set symb = Application.CommandBars.Add("MeineLeiste", Position:=msoBarTop, Temporary:=True) With symb .Left = 0 .Visible = True End With Set AA = Application.CommandBars("MeineLeiste").Controls.Add(Type:=msoControlButton) With AA .FaceId = 1 .Style = msoButtonCaption .Caption = "Jan" .BeginGroup = True .OnAction = "JanuarEin" End With Set AA = Application.CommandBars("MeineLeiste").Controls.Add(Type:=msoControlButton) With AA .FaceId = 2 .Style = msoButtonCaption .Caption = "Feb" .OnAction = "FebruarEin" End With End If End Sub Private Sub Workbook_Close(cancel As Boolean) On Error Resume Next Application.CommandBars("MeineLeiste").Delete On Error GoTo 0 End Sub VBA/HTML - CodeConverter für Office-Foren, AddIn für Excel/Word 2002-2013 - komplett in VBA geschrieben von Lukas Mosimann. Projektbetreuung durch mumpel Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Private Sub Workbook_Open() If Val(Application.Version) <= 11 Then Dim symb As CommandBar Dim AA As Object Set symb = Application.CommandBars.Add(Name:="MeineLeiste", Position:=msoBarFloating, Temporary:=True) '...

Hallo,
das Close_Event war falsch notiert, vielleicht lag's daran, hab's jetzt nur mit einem .xlam-Addin in xl2007 getestet, lief mehrfach fehlerlos durch.
Noch als Zusatz: guck Dir mal an, wie Nepumuk Commandbars in Addins generiert, das ist bei einer größeren Control-Anzahl durchaus von Vorteil...

' ********************************************************************** 
' Modul: DieseArbeitsmappe Typ: Klassenmodul der Arbeitsmappe 
' ********************************************************************** 

Option Explicit

Private Const GC_COMMANDBAR_NAME As String = "MeineLeiste"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 Call prcDeleteCommandBar
End Sub

Private Sub Workbook_Open()

 If Val(Application.Version) <= 14 Then
   
  Dim cmbBar As CommandBar
  Dim cmbButton As CommandBarButton
  Call prcDeleteCommandBar
  Set cmbBar = Application.CommandBars.Add(Name:=GC_COMMANDBAR_NAME, _
      Position:=msoBarTop, Temporary:=True)
      With cmbBar
          .Left = 0
          .Visible = True
          Set cmbButton = .Controls.Add( _
              Type:=msoControlButton, Temporary:=True)
              With cmbButton
                .FaceId = 1
                .Style = msoButtonCaption
                .Caption = "Jan"
                .BeginGroup = True
                .OnAction = "JanuarEin"
              End With
          Set cmbButton = .Controls.Add( _
              Type:=msoControlButton, Temporary:=True)
              With cmbButton
                .FaceId = 2
                .Style = msoButtonCaption
                .Caption = "Feb"
                .OnAction = "FebruarEin"
              End With
      End With
      Set cmbBar = Nothing
      Set cmbButton = Nothing
 End If
End Sub

Private Sub prcDeleteCommandBar()
 Dim cmbBar As CommandBar
 On Error Resume Next
 For Each cmbBar In Application.CommandBars
    If cmbBar.Name = GC_COMMANDBAR_NAME Then _
      Call cmbBar.Delete
 Next
 On Error GoTo 0
End Sub

' ********************************************************************** 
' Modul:  Typ: Standardmodul 
' ********************************************************************** 

Option Explicit

Public Sub JanuarEin()
 MsgBox "JanuarEin"
End Sub

Public Sub FebruarEin()
 MsgBox "FebruarEin"
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Gruß, Mullit

Beliebteste Forumthreads (12 Monate)

Addin in Excel 2003 mit Alt + F8 aktivieren

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread