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