Popup Menuestuktur dynamisch aktualisieren

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Beliebteste Forumthreads (12 Monate)

Popup Menuestuktur dynamisch aktualisieren

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread