Microsoft Excel

Herbers Excel/VBA-Archiv

CommandBar

    Betrifft: CommandBar von: Andy
    Geschrieben am: 28.08.2003 10:14:13

    Hallo Ihrs,

    habe ein kleines Problem mit unten folgendem Code. Wenn ich im

    Sub "ÖffnenMSDM2" Workbooks.Open aktiv ansteuere dann offnet er das Book zweimal.  Wenn ich es nicht tue öffnet er die letzte offene Datei und nicht das was ich will.  Hat jemand eine Idee was ich falsch mache?
    
    
    Ziel des ganzen ist, dass er bei Knopfdruck auf die Schaltfläche MSDM 2.0 in der Commandbar "Sell Discipline" aus folgendem Pfad 
    
    Workbooks.Open FileName:= _
            "\\METZLER1\VOL1\SEKRET\MIX\BLP_MI_1\MSDM 2.0\Modell (NICHT LOESCHEN!!!!!!!!)\MSDM2.0.xls"
    
    öffnen.
    
    Vielen Dank für das öffnen meiner Augen.  Ihr kennt das ja mit dem Wald und den Bäumen....
    
    Grüße
    
    Andy
    
    
    
    
    Sub MenueEinfügen()
    Dim Schaltfläche As Integer
    Dim Schaltfläche_hilfe As Integer
    Dim MenueNeu As CommandBarControl
    Dim button As CommandBarControl
    
    Schaltfläche = Application.CommandBars(1).Controls.Count
    Schaltfläche_hilfe = Application.CommandBars(1).Controls(Schaltfläche).Index
    
    Set MenueNeu = Application.CommandBars(1). _
    Controls.Add(Type:=msoControlPopup, Before:=Schaltfläche_hilfe, temporary:=False)
    
    MenueNeu.Caption = "Sell D&iscipline"
    
    'Set button = MenueNeu.Controls.Add(Type:=msoControlButton)
    
    'With button
        '.Caption = "MSDM 2.0"
        '.Style = msoButtonIconAndCaption
        '.FaceId = 50
        '.OnAction = "ÖffnenMSDM2"
        'BeginGroup = True
    'End With
        
    End Sub
    

    Sub AddButton()
    
    Dim button
    
    
      Set menue = Application.CommandBars(1).Controls("Sell D&iscipline")
      Set button = menue.Controls.Add(Type:=msoControlButton)
      With button
          .Caption = "MSDM 2.0"
          .Style = msoButtonIconAndCaption
          .FaceId = 50
          .OnAction = "ÖffnenMSDM2"
          .BeginGroup = True
      End With
    End Sub
    


    Sub ÖffnenMSDM2()
    'Workbooks.Close
    
     'Workbooks.Open FileName:= _
            "\\METZLER1\VOL1\SEKRET\MIX\BLP_MI_1\MSDM 2.0\Modell (NICHT LOESCHEN!!!!!!!!)\MSDM2.0.xls"
        'Application.Run "BLPLinkReset"
        'Application.Run "RefireBLP"
    End Sub
    

     

    Beiträge aus den Excel-Beispielen zum Thema " CommandBar"