Möchte die selbst generierte Symboleiste rechtsunter dem Tabellenblatt haben. Nicht wie im Code oben.
Habe schon mit Under probiert. Erscheint immer nur links neben dem Tabellenblatt.
Dim symb As CommandBar
Dim i As Integer
On Error Resume Next
Set symb = Application.CommandBars.Add("TrasseBommiNeu", _
Position:=msoBarTop, Temporary:=True)
With symb
.Left = 0
.Visible = True
End With
Gruß Bommi