Microsoft Excel

Herbers Excel/VBA-Archiv

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

Pulldown Menueeintraege disablen enablen?

Betrifft: Pulldown Menueeintraege disablen enablen? von: Horst
Geschrieben am: 18.08.2006 08:55:39

Hey !

Ich habe mir ein pulldown menue erzeugt, dass beim start meiner anwendung initialisiert wird!

Kann ich nun waehrend der laufzeit meiner anwendung einzelne menue eintrage disablen und wieder enablen?
Meinet wegen enablen nur wenn ich auf tabelenbaltt3 eine bestimmte berechnung ausgefuehrt habe usw. Und wenn ic dieses blatt wieder verlasse wieder disabelen

Gruss
horst

  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Orakel
Geschrieben am: 18.08.2006 18:37:59

Hallo Horst,
meine Recherge in diesem Forum hat ergeben, dass in aller Regel ein PullDown-Menü mit DropDown verwechselt wird. Wenn du weiterkommen willst ist dann wohl ein abgespecktes Beispiel notwendig.
Grüße, Orakel


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Horst
Geschrieben am: 21.08.2006 09:05:26

Hey !

Also man kann ja per makro:
Application.CommandBars("Worksheet Menu Bar").Controls("Datei").Enabled = False

Ausblenden, dann wird einem das ganze nicht mehr angezeigt!+

Das ganze moechte ich aber jetzt nur fuer bestimmte teile meines eingenes controls haben!

Und dann noch dynamisch ein und ausblenden !

Die frage wie komme ich hier weiter?

Horst


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Oberschlumpf
Geschrieben am: 21.08.2006 11:24:37

Hi Horst

Wie schon das Orakel (komischer Real-Name!) vorschlug, wäre eine Bsp-Datei, vor allem mit deinem Control nicht nur eine gute Idee, sondern auch sehr hilfreich - da wir ohne Bsp ja erst mal dein Control "nachbauen" müssen, um dann testen zu können - und du weißt ja wie das ist - nicht mehr tun müssen als nötig ;-)

Ciao
Thorsten


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Horst
Geschrieben am: 21.08.2006 14:17:51

Hey !

Also das control um das es geht sieht so aus:
-------------------------------------
Sub Menue()
'Setzen des Menues in der Menuelieste der PopUp-Menues
Dim i As Integer
Dim i_hilfe As Integer
Dim Menue As CommandBarControl
Dim InhalteLoeschen As CommandBarControl
Dim SpeichernUnter As CommandBarControl
Dim Gutachtenstarten As CommandBarControl
Dim Dokumentationstarten As CommandBarControl
Dim Nullwerteanzeigen As CommandBarControl
Dim Finaziellerbedarfeinblenden As CommandBarControl
Dim InhalteLoeschenActiveSheet As CommandBarControl





Dim Info As CommandBarControl

On Error GoTo Fehler

    i = Application.CommandBars(1).Controls.Count
    i_hilfe = Application.CommandBars(1).Controls(i).Index
    Set Menue = Application.CommandBars(1). _
                            Controls.Add(Type:=msoControlPopup, _
                            Before:=i_hilfe, Temporary:=True)
                           Menue.Caption = "Menue"
                           
                           
    Set InhalteLoeschen = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With InhalteLoeschen
                        .Caption = "Alle Inhalte löschen"
                        .OnAction = "AlleInhalteLoeschen"
                        .BeginGroup = True
          End With
          

                           
                           
    Set InhalteLoeschen = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With InhalteLoeschen
                        .Caption = "Inhalte löschen akuelle Seite"
                        .OnAction = "AlleInhalteLoeschenActiveSheet"
                        .BeginGroup = True
          End With
          
          
   Set Info = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With Info
                        .Caption = "Info"
                        .OnAction = "infoAnzeigen"
                        .BeginGroup = True
          End With
          
    Set SpeichernUnter = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With SpeichernUnter
                        .Caption = "Speichern unter..."
                        .OnAction = "mappespeichernals"
                        .BeginGroup = True
          End With
          
    Set Gutachtenstarten = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With Gutachtenstarten
                        .Caption = "Gutachten erstellen..."
                        .OnAction = "StartGutachten"
                        .BeginGroup = True
          End With
          
          
    Set Finaziellerbedarfeinblenden = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With Finaziellerbedarfeinblenden
                        .Caption = "Finaziellen Bedarf ermitteln..."
                        .OnAction = "StartTabelleFinaziellerBedarf"
                        .BeginGroup = True
          End With
          
          
    Set Dokumentationstarten = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With Dokumentationstarten
                        .Caption = "Hilfe/ Dokumentation ..."
                        .OnAction = "pdfdokuaufruf"
                        .BeginGroup = True
          End With
          
    Set Nullwerteanzeigen = Menue.Controls.Add _
                            (Type:=msoControlButton)
    With Nullwerteanzeigen
                        .Caption = "Nullwerte anzeigen..."
                        .OnAction = "Nullwerteanzeigen"
                        .BeginGroup = True
          End With
          
          
GoTo Ende
Fehler:
MsgBox "An error has occurred.. Menue"
Ende:

End Sub

------------------------------------------------------------

Und jetzt seid ihr wieder drannnnnnnnnnn...

Gruss
horst


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Kurt
Geschrieben am: 21.08.2006 21:06:31

Application.CommandBars(1).Controls("Menue"),Controls(1).enabled = False

mfg Kurt


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Horst
Geschrieben am: 22.08.2006 08:52:47

Hey kurt !

Danke
gut jetzt ganze ich das ganze control enablen, aber wenn ich nur teiile enablen will zum beispiel den muenuepunkt "nullwerte anzeigen"
wie mache ich das?

horst


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Kurt
Geschrieben am: 22.08.2006 23:33:59

Hi,

einfach nur logisch fortsetzen.

CommandBars(1).Controls("Menue").Controls("nullwerte anzeigen").enabled = False

mfg Kurt


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Horst
Geschrieben am: 24.08.2006 08:55:21

Hey kurt !

danke das haut hin !

Gruss
horst


  


Betrifft: AW: Pulldown Menueeintraege disablen enablen? von: Dieter
Geschrieben am: 19.08.2006 01:20:27

Hi,

einzelne Einträge disabeln: klares "Nein"!

der Dieter