Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
252to256
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
252to256
252to256
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Menü erstellen

Menü erstellen
11.05.2003 17:55:08
Jens
Hallo zusammen,
ich brauche mal eure Hilfe.
Bei einer selbst erstellten Menüleiste will ich einen Menüpunkt für Adressen einfügen. Der oberbegriff soll Adressen lauten, dann zwei Untermenüs für Kunden und Lieferanten. Diese sollen wiederum unterteilt werden. Ich habe schon einen Ansatz, aber ich komme nicht weiter mit dem ersten Untermenü für Lieferanten. Wer kann mir helfen?
Sub MenuErstellen()
Dim oBar As CommandBar
Dim oPopUp As CommandBarPopup
Dim oBtn As CommandBarButton
Set oBar = Application.CommandBars.Add( _
Name:="MyCommandBar", _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
Set oPopUp = oBar.Controls.Add(Type:=msoControlPopup)
oPopUp.Caption = "Adressen"
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kunde &neuanlegen"
.Style = msoButtonIconAndCaption
.FaceId = 607
.OnAction = "NeuKunde"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kundendaten &auswählen"
.Style = msoButtonIconAndCaption
.FaceId = 355
.OnAction = "Kundenverwalten"
End With
Set oBtn = oPopUp.Controls.Add
With oBtn
.Caption = "Kundendaten speichern"
.Style = msoButtonIconAndCaption
.FaceId = 2654
End With
End Sub

Danke Jens

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Menü erstellen
11.05.2003 18:07:36
Forum

Hallo Jens

folgender Code in DieseArbeitsmappe. Die Makros nach onAction in ein Modul

Gruß Hajo

Der Code wurde getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige