Microsoft Excel

Herbers Excel/VBA-Archiv

Menüleiste

    Betrifft: Menüleiste von: Andrea
    Geschrieben am: 27.08.2003 16:55:53

    Bei einer bestimmten Excel-Datei möchte ich zusätzliche Menüpunkte für den Benutzer einfügen, welche beim Schliessen der Datei wieder gelöscht werden. Ich habe nun das Problem, dass diese in der einen Tabelle funktionieren, in der anderen aber beim genau gleichen Code die Meldung kommt: "Variable nicht defininert" msoControlPopup . Woran kann dies liegen?

    Vielen Dank im voraus, falls jemand hierfür eine Lösung hat.

    Gruss
    Andrea

    Hier der VB-Code:

    Private Sub Workbook_Open()
      Application.CommandBars("Worksheet Menu Bar").Controls.Add _
      Type:=msoControlPopup, Before:=10 '
      Application.CommandBars("Worksheet Menu Bar").Controls(10).Caption = "Blattwechsel"
      
       With ActiveMenuBar.Menus("Blattwechsel").MenuItems
           .Add "EDV", "EDV"
           .Add "Ertrag", "Ertrag"
           .Add "Gesamtbudget", "Gesamtbudget"
      End With
     
    Application.CommandBars("Worksheet Menu Bar").Controls.Add _
      Type:=msoControlPopup, Before:=11 '
      Application.CommandBars("Worksheet Menu Bar").Controls(11).Caption = "Wechseln zu"
    'fügt diverse Menüpunkte in die Bearbeitungszeile ein
      With ActiveMenuBar.Menus("Wechseln zu").MenuItems
       .Add "Anleitung", "Anleitung"
       .Add "Erfolgsrechnung", "Erfolgsrechnung"
       
      End With
      Application.CommandBars("Worksheet Menu Bar").Controls.Add _
      Type:=msoControlPopup, Before:=12 '
      Application.CommandBars("Worksheet Menu Bar").Controls(12).Caption = "Drucken"
    'fügt diverse Menüpunkte in die Bearbeitungszeile ein
      With ActiveMenuBar.Menus("Drucken").MenuItems
       .Add "Druckblatt", "Druckblatt"
    
      End With
      Sheets("Gesamtbudget").Select
      Range("D11").Select
    End Sub
    

      


    Betrifft: AW: Menüleiste von: K.Rola
    Geschrieben am: 27.08.2003 17:04:09

    Hallo,

    schau mal in der VBE unter Extras|Verweise ob da der Verweis
    auf die Office- Bibliothek gesetzt ist.

    Gruß K.Rola


      


    Betrifft: AW: Menüleiste von: Andrea
    Geschrieben am: 28.08.2003 07:44:30

    Super, nun funktioniert's! Danke
    Andrea