Von |
forsa |
Am |
01. April 2008 um 16:46:07 |
Frage |
Hallo, 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 |
|