ich möchte gern den Start von einem Makro in der ExcelMenuleiste aufrufen. Noch besser wäre es, wenn ich eine eigene Symboleiste erstellen kann.
Ich wäre euch sehr dankbar, wenn ihr mir helfen könnt!
Viele Grüße
Manuel
Sub start()
Set CB = Application.CommandBars("Titel")
If Err.Number <> 0 Then
Application.CommandBars.Add(name:="Titel").Visible = True
Set newItem = CommandBars("Titel").Controls.Add(Type:=msoControlButton)
With newItem
.BeginGroup = True
.Caption = "Titel"
.FaceId = 0
.OnAction = "'Datei.xls'!start"
End With
MsgBox "There has been created a CommandBar!", vbInformation
ElseIf CB.Visible = False Then
CB.Visible = True
MsgBox "There is an existing CommandBar!", vbInformation
End If
End Sub