Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menüleiste - Fehlermeldung nicht erklärbar...

Menüleiste - Fehlermeldung nicht erklärbar...
21.06.2005 09:56:06
Karsten
Guten Morgen zusammen.
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Menüleiste - Fehlermeldung nicht erklärbar...
21.06.2005 10:06:54
Nepumuk
Hi Karsten,
versuch es mal so:
Private Sub Workbook_Open()
    'eigene Symbolleiste anlegen für die Böschungsbruchberechnung
    Dim Symb As CommandBar
    Dim Symbol As CommandBarButton
    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"
    'erste Menüzeile erzeugen
    Set Symbol = ccbDu.Controls.Add(Type:=msoControlButton)
    With Symbol
        .Caption = "Projektdaten"
        .OnAction = "ProjektdatenEingeben"
        .TooltipText = "Eingabe der Projektdaten"
        .FaceId = 95
    End With
    'zweite Menüzeile erzeugen
    Set Symbol = ccbDu.Controls.Add(Type:=msoControlButton)
    With Symbol
        .Caption = "Maßstab"
        .OnAction = "ZeigeMassstab"
        .TooltipText = "Eingabe Zeichnungsmaßstabes"
        .FaceId = 966
    End With
    Set Symbol = Nothing
    Set ccbDu = Nothing
    Set Symb = Nothing
End Sub

Mehr zu Symbolleisten und anderm findest du hier: http://www.online-excel.de/excel/grusel_vba.php?f=2
Gruß
Nepumuk
Anzeige
AW: Menüleiste - Fehlermeldung nicht erklärbar...
21.06.2005 10:55:03
Karsten
Herzlichen Dank nepomuk,
alles funzt.
Karsten

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige