AW: Maro aus AddIn starten die zweite
24.02.2005 20:11:03
Nepumuk
Hallo Wolfgang,
meistens hier: http://www.office-loesung.de/index.php?c=3
Gruß
Nepumuk
hat mit der Version nichts zu tun,
nur das Öffnen der UserForm bzw. dem Modul ist in '97 nicht mehr möglich,
wenn es in 2000 geschrieben wurde......
hee ist ein guter tipp
wußte ich auch noch nicht danke
gruß wolfgang
jetzt hat mich aber der Ehrgeiz gepackt:
unter "diese Arbeitsmappe" (Ordner Microsoft Excel Objekt)
gebt ihr folgenden Code ein (natürlich nicht unbedingt mein Stückliste):
Private Sub Workbook_AddinInstall()
Dim cmdBarPop As CommandBarPopup
On Error Resume Next
Application.CommandBars("Standard").Controls("Stückliste").Delete
On Error GoTo 0
Set cmdBarPop = Application.CommandBars("Standard"). _
Controls.Add(Type:=msoControlPopup, Temporary:=True)
cmdBarPop.Caption = "Stückliste"
With cmdBarPop.Controls.Add
.Caption = "Bihler-Stückliste"
.OnAction = "Stueckliste"
End With
End Sub
Private Sub Workbook_AddinUninstall()
On Error Resume Next
Application.CommandBars("Standard").Controls("Stückliste").Delete
On Error GoTo 0
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.CommandBars("Standard").Controls("Stückliste").Delete
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Dim cmdBarPop As CommandBarPopup
On Error Resume Next
Application.CommandBars("Standard").Controls("Stückliste").Delete
On Error GoTo 0
Set cmdBarPop = Application.CommandBars("Standard"). _
Controls.Add(Type:=msoControlPopup, Temporary:=True)
cmdBarPop.Caption = "Stückliste"
With cmdBarPop.Controls.Add
.Caption = "Bihler-Stückliste"
.OnAction = "Stueckliste"
End With
End Sub
-----das wars auch schon, damit ist angedockt......
Gruß aus dem Allgäu
Konrad
hee konrad
ist ein super ansatz ich probiers
ja ich denke langsam auch es ist nicht so einfach
aber mich hats jetzt auch gepackt
also
ich werde weiter dran arbeiten auch mit deinem code
wenn du mir deine e-mail mitteils werd ich dich informieren
gruß wolfgang
Hi,
hier meine Adresse:
konrad.schmid@bihler.de
(geschäftlich)
oder
konrad.schmid@vr-web.de
(privat)