Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
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
1068to1072
1068to1072
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Popup Menuestuktur dynamisch aktualisieren

Forumthread: Popup Menuestuktur dynamisch aktualisieren

Popup Menuestuktur dynamisch aktualisieren
23.04.2009 10:05:08
Horst
Hey !
Ich möchte ich einem CommandBarControl immer dynamisch aktualisieren.
z.B. immer wenn ich den Menüpunkt mir anschaue,
dann soll das da der Name aktiven Worksheet stehen.
Ich habe es versucht und im Caption den Namen des aktiven Sheets eingetragen.
Aber es zeigt immer nur den Namen des Sheets mit dem die Exceldatei startet.
-------------
....
.Caption = "&Tabellenblatt" & ActiveSheet.Name & " kopieren
.OnAction = "TabellenBlattKopierenMenue" 'Im Modul TabllenblattKopierenModul
.BeginGroup = True
-----------------------
Auch mit der Prozedur
Public actualSheetName As String ' Globale Variable

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
actualSheetName = Sh.Name
End Sub


und dem Eintrag
....
.Caption = "&Tabellenblatt" & actualSheetName & " kopieren"
.OnAction = "TabellenBlattKopierenMenue" 'Im Modul TabllenblattKopierenModul
.BeginGroup = True
-----------------------
Wir nicht aktualisiert...
Wie erreiche ich eine dynamische Aktualisierung des Menüpunktes?
Oder geht es gar nicht...
Gruß
Horst

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 10:08:50
Hajo_Zi
Hallo Horst,
hast Du nicht schon zu viel Code gepostet. Da könnte vielleicht jemand helfen?
Man könnte vermute das es um das Kontextmenü geht. Aber das ist schon Schluss.

AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 10:52:26
Horst
Hallo Hajo
Ich habe mal die Codezeilen erweitert. Die ganze Prozedure zu Posten würde zur Lesbarkeit nicht gerade beitragen. Oder?
Das setzen der GlobalenVarable in der Workbook_SheetActivate habe nicht wiederholt.
Ich hoffe man kann jetzt erkennen um was es sich handelt und es kann mir geholfen werden.
Gruss Horst
---------------------------------------------------------------------------------

Sub MenueVMP()
Dim MenueVMP As CommandBarControl
Dim cmdbar As CommandBar
Dim mainMenuVMP As CommandBarControl
Dim subMenu As CommandBarControl
Dim VMPUnterMenue3 As CommandBarPopup
Dim VMPUnterUnterMenue3_3 As CommandBarControl
Set MenueVMP = Application.CommandBars(1). _
Controls.Add(Type:=msoControlPopup, _
before:=i_hilfe, Temporary:=True)
MenueVMP.Caption = "VMP"
MenueVMP.TooltipText = "Hiermit kann das Excel automatisiert werden.. _
_
Set cmdbar = Application.CommandBars("Worksheet Menu Bar")
Set mainMenuVMP = cmdbar.Controls("VMP")
Set cmdbar = Application.CommandBars("Worksheet Menu Bar")
Set mainMenuVMP = cmdbar.Controls("VMP")
Set VMPUnterMenue3 = mainMenuVMP.Controls.Add(Type:=msoControlPopup)
Set VMPUnterUnterMenue3_3 = VMPUnterMenue3.Controls.Add
With VMPUnterMenue3
.Caption = "Arbeiten mit Tabellenbättern..."
.BeginGroup = True
With VMPUnterUnterMenue3_3
.Caption = "&Selektiertes Tabellenblatt " & actualSheetName & " kopieren, einfügen und  _
umbennen"
.OnAction = "TabellenBlattKopierenMenue" 'Im Modul TabllenblattKopierenModul
.BeginGroup = True
End With
End With
End Sub


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

Anzeige
AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 12:48:37
Rudi
Hallo,
verpasse dem Control erst mal eine eindeutige Tag-Eigenschaft, wenn du es erstellst
(.Tag="DasControl"), dann kannst du es leicht wiederfinden.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.CommandBars.FindControl(Tag:="DasControl", Recursive:=True).Caption = _
"&Tabellenblatt" & Sh.Name & " kopieren"
End Sub


Druß
Rudi

Anzeige
AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 13:45:42
Horst
Hey Rudi,
der Debugger meldet sich, er kann das Bennantes Argment nicht finden. Er bezieht auf Recursive.
Auch das Recursive weglassen bringt nicht.
Warum...ne Idee?
Gruss Horst
AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 13:57:21
Rudi
Hallo,

Warum...ne Idee?


Ja: uraltes Excel.
evtl.
Application.CommandBars("Worksheet Menu Bar").controls("VMP").Controls("Untermenü3").Controls(3).Caption= ...
Gruß
Rudi

Anzeige
AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 14:14:02
Horst
Hey
Danke
ich habe ne Lösung:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
abc = "&Selektiertes Tabellenblatt:  kopieren, einfügen und umbennen"
Application.CommandBars("Worksheet Menu Bar").Controls("VMP").Controls("Arbeiten mit Tabellenbä _
ttern...").Controls(3).Caption = abc
End Sub


Anzeige
AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 14:22:30
Rudi
Hallo

Tabellenbättern...


da solltest du noch ein l einbauen. Sieht besser aus. ;-)

AW: Popup Menuestuktur dynamisch aktualisieren
23.04.2009 14:58:49
Horst
Danke...
;

Forumthreads zu verwandten Themen

VBA - Hilfetexte für Funktionen wie MsgBox, InputB
Stefan

Hallo zusammen,
gibt es eine einfache Möglichkeit, in VBA Hilfetexte (welche ruhig einfachen Textfiles o.ä. entsprechen können) für Funktionen wie MsgBox, InputBox etc. zu hinterlegen?
Danke vorab und Gruß.
Stefan
12.06.2009 09:41:53
Thread-ID: 1080899
2 Beiträge
Anzeige
VBA: Textbox.Value mit -1 multiplizieren => Fehler
Mathias

Hallo zusammen!
Bin neu hier und habe vieles aus anderen Beiträgen abkupfern können. Im Moment drückt die Zeit, so dass ich keinen echten systematischen Einstieg gewählt habe sondern eher Codes aus div. Foren zusammenkopiert habe und per learning by doing das meiste hinbekommen habe. Hat bi...
19.08.2009 12:17:55
Thread-ID: 1097053
7 Beiträge
pop up Fenster bei Fehler eines updates
Michael

Hallo!
Ich habe eine Tabelle die alle 30 Minuten im Hindergrund aktualisiert wird. Wenn bei der Aktualisierung ein Fehler auftritt, soll ein popup Fenster erscheinen. (Egal wo ich mich dann aktuell im System befinde/ Word / outlook etc.)
Danke
Gruß Michael
01.10.2009 12:12:04
Thread-ID: 1106590
4 Beiträge
VBA "Abfrage Vorname - dann Pop up mit Namen
Fabio

Hallo zusammen,
für einen "Kleinen Gag" suche ich ein "VBA-Script" (oder so), das folgendes ausführt:
1. Beim Start der Datei soll vor der eigentlich ein "Fenster" aufgehen, in dem man nach dem Vornamen gefragt wird" - und den man dann eintippen muss.
2. Nach "ok" - soll ein weitere...
29.01.2010 18:22:34
Thread-ID: 1134221
4 Beiträge
Popup-Fenster
Ringlstetter

Hallo allerseits,
ich möchte nur in einem bestimmten Tabellenblatt ein Popup haben, welches eine Frage stellt. Die Zahl als Antwort soll dann in ein bestimmtes Feld geschrieben werden.
Das Popup soll so lange fragen und die Werte immer ein Feld unter dem letzten eingeben, bis in einem a...
05.03.2010 10:47:24
Thread-ID: 1143587
5 Beiträge
POP UP Fenster
pitmu1@web.de

Hallo zusammen,
suche eine Excel Lösung für folgendes Problem:
Habe z.Bsp. eine Zelle in der die Anzahl meiner Besuche im z.Bsp. April stehen.
Beim Klicken auf diese Anzahl soll nun ein POP UP Fenster geöffnet werden, indem
die einzelnen Besuche mit genauem Termin darinstehen b...
01.07.2010 16:29:31
Thread-ID: 1164979
2 Beiträge
PopUp menu mit r-klik
Greg

Hallo Leute,ich moechte ein popup auf rechtsklik erstellen
dabei gehen mir die ueblichen cut,copy,...usw. verloren
kann ich meins in das voreingestellte menu einfuegen?

danke im vorraus
gruesse aus Athenscript:Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel...
25.04.2002 12:50:18
Thread-ID: 116262
3 Beiträge
Listbox + Textbox VBA
amintire

Hallo alle zusammen,
ich habe folgende Datei gebastelt und benötige eure Hilfe:
Die Datei https://www.herber.de/bbs/user/76542.xls wurde aus Datenschutzgründen gelöscht
Bei ComboBox1 sollen die Tabellen ausgesucht werden können (hier z.B. Januar, Februar oder März)
Wenn Januar...
09.09.2011 20:18:24
Thread-ID: 1229236
7 Beiträge
VBA TextBox Formatierung
Andy

Guten Morgen zusammen
Bin mal wieder auf der Suche nach Hilfe.
Habe ein UF mit Textboxen, in einer Textbox sollte ich zahlen eingeben.
und möchte das dies gleich auch in der UF so dargestellt wird und auch in der
Tabelle.
123.4.456.789 = Darstellung
123445679 = Eingabe...
17.11.2012 08:16:50
Thread-ID: 1287043
16 Beiträge
Anzeige
pop-up menu bei Click
Yves

Hallo,
kann mir jemand bei folgendem Problem helfen: Ich habe in einer Tabelle eine Abfrage zum Telefonbuch von Outlook. In anderen Tabellen stehen Namen. Wie kann ich mir durch klicken auf eine Zelle mit den Namen ein Popup menu mit den restlichen Daten dieser Person (tel-nummern etc) aus d...
21.06.2002 14:25:18
Thread-ID: 130452
2 Beiträge
Anzeige
per VBA alle Textboxen in Arbeitsmappe suchen
Peter

Hallo,
ich möchte per VBA in allen Blättern der gesamten Arbeitsmappe die Textboxen suchen
und wenn ein bestimmter Teil des Namens der gesuchten Textbox gleich ist
soll dort ein Inhalt eingefügt werden.
Mein Versuch ist mit meinen VBA Kenntnissen leider gescheitert.
Public S...
19.04.2013 07:38:02
Thread-ID: 1309478
6 Beiträge
PopUp Fenster in bestimmtes Arbeitsblatt
Ann

Hallo Leute,
ich hab ein Workbook, in das ich Daten einlese und verarbeite. Am Ende soll sich ein PopUp-Fenster öffnen, das angibt, dass das Programm fertig ist. Das funktioniert auch soweit, nur habe ich drei Sheets und das PopUp-Fenster öffnet sich im 3. und nicht wie gewollt im 1.
Di...
13.05.2013 16:37:33
Thread-ID: 1312755
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
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