Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Benutzerdef. Menupunkt ausblenden

Benutzerdef. Menupunkt ausblenden
18.03.2009 21:53:42
Peter
Guten Abend
Mit untenstehendem Code erstelle ich mir ein eigenes Excel-Menu. Nun möchte ich, dass der dritte Punkt (3 - Befehl C") unterdrückt wird, wenn der Name der Datei, in welcher der Code ausgeführt wird den String "Update" enthält.
Doch wie kann ich " ''' If InStr(1, ThisWorkbook.Name, "Update") = 0 Then .............
in den Code integrieren, dass ich das gewünschte REsultat erhalte?
Danke für eine Antwort.
Gruss, Peter
Const MenuName = "&Tool"
Const Befehl1 = "&1 – Befehl A"
Const Befehl2 = "&2 – Befehl B"
Const Befehl3 = "&3 – Befehl C"

Public Sub MenuN_Erstellen()
Dim MB As Object, MeinMenuN As Object, Befehl As Object
''' If InStr(1, ThisWorkbook.Name, "Update") = 0 Then
Set MB = CommandBars.ActiveMenuBar
Set MeinMenu = MB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
MeinMenu.Caption = MenuName
Set Befehl = MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl1
.OnAction = "Machwas1"
End With
Set Befehl = MeinMenu.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = Befehl2
.OnAction = "Machwas2"
End With
With Befehl
.Caption = Befehl3
.OnAction = "Machwas3"
End With
End Sub



Public Sub MenuN_Löschen()
On Error Resume Next
CommandBars.ActiveMenuBar.Controls(MenuName).Delete
End Sub



Public Sub Machwas1()
Application.StatusBar = "Befehl A"
Call Code1
Application.StatusBar = ""
End Sub



Public Sub Machwas2()
Application.StatusBar = "Befehl B"
Call Code2
Application.StatusBar = ""
End Sub



Public Sub Machwas3()
Application.StatusBar = "Befehl C"
Call Code3
Application.StatusBar = ""
End Sub


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

Betreff
Datum
Anwender
Anzeige
AW: Benutzerdef. Menupunkt ausblenden
18.03.2009 22:10:34
Ramses
Hallo
"...Doch wie kann ich ...........in den Code integrieren,..:"
Nachdenken !?
Vor dem einfügen des menüpunktes natürlich
Gruss Rainer
AW: Benutzerdef. Menupunkt ausblenden
18.03.2009 22:19:09
Peter
Hallo Rainer
Ich hatte tatsächlich einen Knopf in der Leitung (und mir alles viel zu kompliziert vorgestellt ..).
Jetzt funktioniert es. Danke
Gruss, Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige