Menüeintrag
01.04.2008 18:50:28
forsa
ich habe folgendes Problem:
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