Habe ein Problem bei der Menüleistenerstellung. Es soll ein Menü mit 2 zeiligem Popup erstellt werden. Bei meinem untenstehenden Code kommt in der Zeile
" Set Pop1 = Symb.Controls(2) " zur Fehlermeldung "Index außerhalb des gültigen Bereichs". Woran liegt es? Was kannich tun?
Gruß Karsten
Private Sub Workbook_Open()
'eigene Symbolleiste anlegen für die Böschungsbruchberechnung
Dim Symb As CommandBar
Dim Symbol As CommandBarButton
Dim Pop1 As CommandBarControls
Dim ccbDu As CommandBarPopup
On Error Resume Next
Application.CommandBars("Böschung").Delete
On Error GoTo 0
Set Symb = Application.CommandBars.Add("Böschung", Position:=msoBarTop, Temporary:=True)
ActiveWindow.Zoom = 100
With Symb
.Left = 0
.Visible = True
End With
CalcStatus = Application.Calculation
Application.Calculation = xlManual
'Menü Einstellungen erzeugen
Set ccbDu = Symb.Controls.Add(msoControlPopup)
ccbDu.Caption = "Projektdaten/Einstellungen"
Set Pop1 = Symb.Controls(2)
'erste Menüzeile erzeugen
With Pop1.Add(Before:=1, Type:=msoControlButton)
.Caption = "Projektdaten"
.OnAction = "ProjektdatenEingeben"
.TooltipText = "Eingabe der Projektdaten"
.FaceId = 95
End With
'zweite Menüzeile erzeugen
With Pop1.Add(Before:=2, Type:=msoControlButton)
.Caption = "Maßstab"
.OnAction = "ZeigeMassstab"
.TooltipText = "Eingabe Zeichnungsmaßstabes"
.FaceId = 966
End With