Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
300to304
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
300to304
300to304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Sub Submenü

Sub Submenü
29.08.2003 14:53:22
sigi
Hallo Spezialisten,
ich möchte dem Arbeitsblatt eine Menueleiste beim öffnen hinzufügen.
Aus Hauptpunkt erscheint "Ausführung"
Nun soll als Submenue "00 Baustelleneinrichtung"
Und als weiteres Submenue von 00 Baustelleneinrichtung ein Pfeil erscheinen
indem dann Baustellenbedarf erscheint.
Leider komme ich nicht hinter diese Lösung
Für Eure Hilfe bedankend
Gruß
Sigi

Option Explicit

Private Sub Workbook_Open()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Dim iCounter As Integer
Call CmdAusführung
Set oBar = Application.CommandBars("Worksheet Menu Bar")
Set oPopUp = oBar.Controls.Add(msoControlPopup, before:=oBar.Controls.Count)
oPopUp.Caption = "Ausführung"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "00 Baustelleneinrichtung"
.Caption = "01 Baustellenbedaf"
.OnAction = "Baustelleneinrichtung"
.OnAction = "Baustellenbedarf"
.Style = msoButtonCaption
End With
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sub Submenü
29.08.2003 14:59:11
Michael Scheffler
Hi,

nach einfach statt:

Set oBtn = oPopUp.Controls.Add

Set oPopBot = oPopUp.Controls.Add(msoControlPopup,...

oder habe ich was falsch verstanden?

Gruß

Micha
AW: Sub Submenü
29.08.2003 15:01:00
sergiesam
Hi,

beim aufzeichnen wurde folgender Code erzeugt:

Application.CommandBars("Untermenü 68933130").Controls.Add Type:= _
msoControlPopup, Before:=2

Versuch das mal...
Sam
AW: Sub Submenü
29.08.2003 15:08:59
GerdW
Du kannst nicht zwei controls in einer Anweisung erzeugen:

With oBtn
.Caption = "01 Baustellenbedaf"
.OnAction = "Baustellenbedarf"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "00 Baustelleneinrichtung"
.OnAction = "Baustelleneinrichtung"
.Style = msoButtonCaption
End With

Gerd
Anzeige
wie macht man es dann?
29.08.2003 16:12:18
sigi
Wie kann ich so ein Unteruntermenue erzeugen?
Gruß
Sigi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige