Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

menü



Excel-Version: 8.0 (Office 97)
  • menü von jhaustein vom 31.05.2002 - 12:27:57
    • Re: menü von Monika Weber vom 31.05.2002 - 14:04:36
    • Re: menü von ajk vom 31.05.2002 - 14:04:08

Betrifft: menü
von: jhaustein
Geschrieben am: 31.05.2002 - 12:27:57

hallo gemeinschaft,

ich möchte folgendes erreichen - für die zeit, in der eine bestimmte datei geöffnet ist, soll in der menüzeile ein button auftauchen, der mit einem makro verknüpft ist - wenn die datei geschlossen wird, soll der button verschwinden

könnt ihr helfen

jörg


  

Re: menü
von: ajk
Geschrieben am: 31.05.2002 - 14:04:08

Hallo,

prinzipiell ist Dein "Wunsch" nicht allzu schwer, allerdings solltest Du Menuzeile (Kontexmenu, Menuleiste,...)
etwas präzisieren.

Gruß
Andreas


  

Re: menü
von: Monika Weber
Geschrieben am: 31.05.2002 - 14:04:36

Hallo Jörg

Das könnte so aussehen:


' In "DieseArbeitsmappe" 
' Hier wird der Menüpunkt beim Öffnen der Mappe erzeugt
Private Sub Workbook_Open()
   Dim cmbMenu As CommandBar
   Dim cbcMenu As CommandBarControl
   Dim cbcMM As CommandBarControl

   Set cmbMenu = Application.CommandBars.ActiveMenuBar
   Set cbcMenu = cmbMenu.Controls.Add(Type:=msoControlPopup)
                cbcMenu.Caption = "Mein Menü"
   Set cbcMM = cbcMenu.CommandBar.Controls.Add _
                (Type:=msoControlButton)
      With cbcMM
          .Caption = "Hallo"
          .OnAction = "Hallo"
      End With
End Sub

' Hiermit wird beim Schliessen der Mappe der Menüpunkt entfernt
Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Application.CommandBars("Worksheet Menu Bar").Controls _
      ("Mein Menü").Delete
End Sub

' In ein Modul
Sub Hallo()
   MsgBox "Hallo Welt"
End Sub

(Getestet in der Version XL2000)

Ich hoffe, dass dir das weiterhilft.
Es liebs Grüessli aus der Schweiz
Monika


www.jumper.ch
*** Generell: Bitte kein Crossposting ***