MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 02.10.2000, 15:57   #1
Neumi
MOF User
MOF User
Standard Makros in Symbolleisten

Mit Excel 5 konnte man jedem Makro einen Menüpunkt im Menü Extras zuweisen.

In Excel 97 geht das nicht mehr.
Das Problem: Die Menüs werden für die Anwendung Excel gespeichert und nicht für die Arbeitsmappe.

Ich möchte, daß die Menüs wieder verschwinden, wenn die Datei gelöscht wird.

Bei alten konvertierten Dateien funktioniert das problemlos.
Doch finde ich nirgends die Option, wo man das einstellen kann.

Weiß jemand, wie das geht?
Neumi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.10.2000, 17:18   #2
Schmid
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Neumi,

dies geht nur über die commandbar_auflistung.
Schau Dir folgendes an:

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Leiste_zurücksetzen
End Sub

Private Sub Workbook_Open() On Error GoTo Fehler_Öffnen Call menueLeiste_erstellen Workbooks("Partie.xls").Sheets("NeuePartien").Select Exit Sub Fehler_Öffnen: MsgBox Err.Description Exit Sub End Sub
Sub menueLeiste_erstellen() Dim cmdBar As CommandBar Dim mPartie As CommandBarPopup Dim mnuLesen As CommandBarPopup Dim mnuBewert As CommandBarButton Dim mnuGesamt As CommandBarButton Dim mnuInvGesamt As CommandBarButton Dim mnuGesamtNeu As CommandBarButton Dim mnuInvGesNeu As CommandBarButton Dim mnuDaten As CommandBarButton Dim mnuRCP As CommandBarButton Dim mnuAllesLesen As CommandBarButton Dim mnuInventurenbewerten As CommandBarButton Dim mnuMehrlesen As CommandBarButton Dim mnuZeitlesen As CommandBarButton 'eingefügt 04/98 Zeitkriterium Set cmdBar = Application.CommandBars.Add("Partie", msoBarTop, , True) Set mPartie = cmdBar.Controls.Add(msoControlPopup) mPartie.Caption = "&Partiebewertung" Set mnuLesen = mPartie.Controls.Add(msoControlPopup) Set mnuAllesLesen = mnuLesen.Controls.Add(msoControlButton) ' Set mnuMehrlesen = mnuLesen.Controls.Add(msoControlButton) ' Set mnuZeitlesen = mnuLesen.Controls.Add(msoControlButton) 'eingefügt 04/98 Zeitkriterium Set mnuBewert = mPartie.Controls.Add(msoControlButton) Set mnuGesamt = mPartie.Controls.Add(msoControlButton) Set mnuGesamtNeu = mPartie.Controls.Add(msoControlButton) Set mnuInventurenbewerten = mPartie.Controls.Add(msoControlButton) Set mnuInvGesamt = mPartie.Controls.Add(msoControlButton) Set mnuInvGesNeu = mPartie.Controls.Add(msoControlButton) Set mnuRCP = mPartie.Controls.Add(msoControlButton) Set mnuDaten = mPartie.Controls.Add(msoControlButton) mnuLesen.Caption = "&Einlesen" mnuAllesLesen.Caption = "Chargen einlesen" 'mnuMehrlesen.Caption = "Mehrere Chargen" 'mnuZeitlesen.Caption = "Chargen nach Datum" 'eingefügt 04/98 Zeitkriterium mnuBewert.Caption = "Partiebewertung" mnuInventurenbewerten.Caption = "Inventurbewertung" mnuGesamt.Caption = "Partiebew. Gesamtergebnis anzeigen" mnuInvGesamt.Caption = "Inventurbew. Gesamtergebnis anzeigen" mnuGesamtNeu.Caption = "Partiebew. aktuelles Gesamtergebnis anzeigen" mnuInvGesNeu.Caption = "Inventurbew. aktuelles Gesamtergebnis anzeigen" mnuRCP.Caption = "Prodisdaten kopieren" mnuDaten.Caption = "Datenimport aus MSO" cmdBar.Visible = True mnuAllesLesen.OnAction = "Charge" 'mnuMehrlesen.OnAction = "Charge_2" 'mnuZeitlesen.OnAction = "Datum_lesen" mnuBewert.OnAction = "Partieverarbeitung_Neu" mnuInventurenbewerten.OnAction = "Inventurbewertung" mnuGesamt.OnAction = "Gesamtdatei_erstellen" mnuInvGesamt.OnAction = "InvGesamtdatei_erstellen" mnuGesamtNeu.OnAction = "Gesamtdateiaktuell_erstellen" mnuInvGesNeu.OnAction = "InvGesamtdateiaktuell_erstellen" mnuRCP.OnAction = "RCP" mnuDaten.OnAction = "Datenbank_Tabellen_import_ACCESS" End Sub
Sub Leiste_zurücksetzen() Dim cmdBar As CommandBar For Each cmdBar In Application.CommandBars If cmdBar.Name = "Partie" Then cmdBar.Delete End If Next End Sub
In diesem Beispiel wírd eine Menueleiste mit Menuepunkten und Menuebelegung bei Öffnen der Arbeitsmappe erstellt.
Beim Schliessen der Arbeitsmappe wird diese wieder gelöscht!

Gruß
peter

Geändert von jinx (19.07.2008 um 10:22 Uhr). Grund: Code-Tags gesetzt
Schmid ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:24 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.