| Von |
forsa |
| Am |
01. April 2008 um 18:25:16 |
| Frage |
Hallo,
ich habe wegen diesem Problem schon gepostet. Das Thema Addin trifft aber nicht ganz zu. Es geht eigentlich um ein Menüeintrag, das beim raufklicken ein AddIn Makro aufruft.
Nochmals das Problem geschildert:
Ich erstelle in Excel einen neuen Menüpunkt mit Unterpunkten, die nach dem betätigen ein bestimmtes Makro aufrufen. Mein Problem ist jetzt, dass ich diesen Menüpunkt nur in einer bestimmten Mappe erzeugen will. Der Menüpunkt soll erhalten bleiben. Dies ereiche ich mit Temporary:=False. Aber jetzt erscheint der Menüpunkt in jeder Mappe. Falls Ihr eine Idee habt, bin ich euch sehr dankbar, wenn ihr mir schnell antworten könntet.
hier der VBA Code:
Dim AktiveMenüLeiste As Object
Dim MeinMenü As Object, Befehl As Object
Dim strCaption As String
Set MeinMenü = _
AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=False)
MeinMenü.Caption = "&Programm"
On Error Resume Next
MeinMenü.Controls("&Programm").Delete
On Error GoTo 0
'Erster Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "Erzeugen &Buchungsdatei"
.OnAction = "auslesen3103208"
End With
'Zweiter Befehl im Menü
Set Befehl = MeinMenü.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "Erzeugen &Schnittstellensatz"
.OnAction = varPfadErzeugen & "TabErzeugen31012008"
End With |
|
Zum Seitenanfang