Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
212to216
212to216
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Controls in Menüleiste deaktivieren

Forumthread: Controls in Menüleiste deaktivieren

Controls in Menüleiste deaktivieren
31.01.2003 23:06:56
Ronald
Hallo Excelfreunde,
ich habe ein Add- In erstellt, dass im Menü Extras mit 2 controls erzeugt. Wie kann ich es anstellen, dass diese, nach Vorbild von Excel, disabled werden, wenn kein workbook geöffnet ist? Bisher habe ich in dem Fall immer durch eine Msgbox eine
Meldung ausgegeben.
Schönen Abend und danke für Anregungen.
Ronald

Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Controls in Menüleiste deaktivieren
31.01.2003 23:35:42
Herbert

Hallo Ronald,
Indem Du z.B. in der pers.Makroarbeitsmappe dieses
Worbook_Open-Ereignis ausführst:

Private Sub Workbook_Open()
Application.CommandBars(1).Controls("Extras").Controls("xxxxx").Enabled = False
End Sub
Gruß Herbert


Anzeige
Danke, aber das trifft es nicht
31.01.2003 23:42:03
Ronald

Hallo,
Sobald über Datei Neu.. oder nur Neu eine neue Mappe erzeugt wird oder ein workbook geöffnet oder eingeblendet wird, muss diese Menüpunkt wieder zur Verfügung stehen.
Gruß Ronald


Re: Danke, aber das trifft es nicht
01.02.2003 00:05:40
L.Vira

Deine Lösung mit der Msgbox ist doch ok! Wenn du du das verfeinern willst, musst du ein (echtes)Klassenmodul in dein
Add- In einbauen, in dem die Application- Ereignisse ausgewertet werden. Das wird auf jeden Fall etwas umfangreicher ausfallen, da
du ja alle Möglichkeiten berücksichtigen musst.

Anzeige
Re: Danke, aber das trifft es nicht
01.02.2003 00:10:52
Herbert

Man könnte es so lösen:

'in die Pers.MA Modul "Diese Arbeitsmappe"

Private Sub Workbook_Activate()
Application.CommandBars(1).Controls("Extras").Controls("xxx").Enabled = False
End Sub

Private Sub Workbook_Deactivate()
Application.CommandBars(1).Controls("Extras").Controls("xxx").Enabled = True
End Sub

     
die pers.MA muß allerdings eingeblendet sein.

Gruß Herbert



Anzeige
Re: Danke, aber das trifft es nicht
01.02.2003 00:23:40
Ronald

Danke, aber das geht so natürlich nicht.
Gruß Ronald

Hmm, könntest du mir da etwas
01.02.2003 00:28:42
Ronald

auf die Sprünge helfen, mit Klassenmodulen hab ich bisher kaum gearbeitet?
Gruß Ronald

Warum nicht ? o.T.
01.02.2003 00:32:56
Herbert

...

Anzeige
Re: Weil das z.B. nicht greift,
01.02.2003 00:40:00
Ronald

wenn ich über Neu eine neue Mappe hinzufüge.
Gruß Ronald

Das greift schon...o.T.
01.02.2003 00:42:09
Herbert

...

Re: Das greift schon, ja
01.02.2003 00:47:17
Ronald

wenn ich eine neue Mappe einfüge, greift das deactivate- Ereignis und mein control wird ausgeblendet, genau das gegenteil sollte sein!
Gruß Ronald

Anzeige
Re: Hmm, könntest du mir da etwas
01.02.2003 00:53:43
L.Vira

Hättest du Geduld bis, sagen wir mal heute Nachmittag?

Du hast es...
01.02.2003 00:57:49
Herbert

offensichtlich nicht probiert,sonst hätte es Dir
auffallen müßen,daß es eingeblendet wird...

Hab schon, aber
01.02.2003 01:06:59
Ronald

vorher deinen Dreher beseitigt, der das Problem nicht löst, nur umkehrt.
Gruß Ronald

Anzeige
Klar, bin für jede Hilfe dankbar...
01.02.2003 01:17:36
Ronald

ot

Re: Klar, bin für jede Hilfe dankbar...
01.02.2003 13:28:01
L.Vira

Ich hab dir mal eine Beispielmappe gemailt, ist zu kompliziert, das hier zu erklären.

Danke, funktioniert super...oT
01.02.2003 18:48:00
Ronald

oT

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige