Hallo User !
Code funktioniert bei jeder neuen Arbeitsmappe nur in meinem Programm nicht!Debagger immer
symb As CommandBar.Auf welchen Fehler wird hingewiesen ?
Vielen Dank für Eure Bemühungen Gruß Bommi
Dim symb As CommandBar
Dim i As Integer
On Error Resume Next
Set symb = Application.CommandBars.Add("NeubauTrasse", _
Position:=msoBarTop, Temporary:=True)
With symb
.Left = 0
.Visible = True
End With
Set Symbol = Application.CommandBars("NeubauTrasse").Controls _
.Add(Type:=msoControlButton)
With Symbol
.Style = msoButtonIconAndCaption
.FaceId = 1950
.Caption = "Rechnungen erfassen"
.TooltipText = "hier erfassen Sie Ihre Rechnungen!"
.BeginGroup = True
.OnAction = "RechnungenErfassen"
End With