Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Inhaltsverzeichnis

Optimierung eines AddIns

Optimierung eines AddIns
18.03.2005 13:45:04
Torsten
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"?

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Optimierung eines AddIns
18.03.2005 13:59:43
u_
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ß
erledigt - Vielen Dank und Gruß Torsten oT
18.03.2005 14:10:30
Torsten
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige