Optimierung eines AddIns

• Optimierung eines AddIns von Torsten K. vom 18.03.2005 13:45:04
• AW: Optimierung eines AddIns - von u_ am 18.03.2005 13:59:43
  • erledigt - Vielen Dank und Gruß Torsten oT - von Torsten K. am 18.03.2005 14:10:30

Betrifft: Optimierung eines AddIns
von: Torsten K.

Geschrieben am: 18.03.2005 13:45:04
Hallo beisammen,
vor ca. einem Jahr habe ich hier im Forum von einem fleißigen Helfer (Namen habe dummerweise nicht dazugeschrieben) ein Add-In erhalten. Leider wird jedesmal, wenn ich Excel öffne, ein weiteres Icon zu diesem Add-In hinzugefügt. Mittlerweile nervt's mich. Leider weiß ich nicht, an welchem Schräubchen ich hier drehen muß, um das abzustellen.
Könnt Ihr mir behilflich sein?
Vielen Dank im voraus und
Gruß
Torsten
Ich bekomme diese Datei leider nicht hochgeladen, daher:
"Diese Arbeitmappe"

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Begin insert Start
On Error Resume Next
Application.CommandBars("Standard").Controls("StartKopie").Delete
On Error GoTo 0
'End insert Start
End Sub

Private Sub Workbook_Open()
Call CreateControl
End Sub

"Modul1"
Sub CreateControl()
Dim objBtn As CommandBarButton
'Begin insert Start
On Error Resume Next
Application.CommandBars("Standard").Controls("StartKopie").Delete
Err.Clear
Set objBtn = Application.CommandBars("Standard").Controls.Add
If Err <> 0 Then
Err.Clear
Set objBtn = Application.CommandBars("Standard").Controls.Add
End If
On Error GoTo 0
With objBtn
.Caption = "Umsatzbudget: Zeilen kopieren"
.OnAction = "start"
.BeginGroup = False
.TooltipText = "Umsatzbudget: Zeilen kopieren"
.Style = msoButtonIcon
.FaceId = 2107
End With
'End insert Start
End Sub
"Modul2"
Sub Speichern()
ThisWorkbook.IsAddin = True
ThisWorkbook.SaveAs ActiveWorkbook.Path & "\Kopie.xla"
End Sub
Sub start()
UserForm1.Show
End Sub
In dem Zusammenhang: Was bedeutet "ThisWorkbook.IsAddin = True"?

Betrifft: AW: Optimierung eines AddIns
von: u_
Geschrieben am: 18.03.2005 13:59:43
Hallo,
es wird ein Button "Startkopie" gelöscht aber ein Button "Umsatzbudget: Zeilen kopieren" hinzugefügt. Das müssen ja immer mehr werden. Passe dir Bezeichnungen aneinander an.
Gruß

Betrifft: erledigt - Vielen Dank und Gruß Torsten oT
von: Torsten K.
Geschrieben am: 18.03.2005 14:10:30