Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
984to988
984to988
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dynamisches Kontextmenue

Dynamisches Kontextmenue
16.06.2008 09:57:26
Sven
Hallo zusammen,
ich habe schon ein paar Kontextnemues angepasst.
Jetzt möchte ich ein Kontextmenue erstellen das sich dynamisch mit dem Inhalt einer Liste füllt.
Es soll dazu dienen Teilnehmer in einer Tabelle einfach abrufen und eintragen zu können.
Würde mich freuen wenn mir jemand helfen könnte.
Sollten noch weitere Angaben benötigt werden, einfach melden.
Danke mal schon jetzt.
Grüße
Sven

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dynamisches Kontextmenue
16.06.2008 12:17:39
Franc
Post mal bitte ein Beispiel, wie es in der Liste steht.

AW: Dynamisches Kontextmenue
16.06.2008 14:21:21
Sven
Die Idee dahinter soll sein, in einer Spalte einer Verdeckten Tabelle Namen zu haben (die auch jederzeit erweitert werden können).
Diese Spalte soll dann Dynamisch in das Kontextmenue übernommen werden.
Eine ähnliche Sache habe ich in einem Dropdown-Feld schon mal realisiert.
Nur bei dem Kontextmenue komme ich weder mit der Füll-Schleife zurecht noch mit der Ausführungsfunktion, die ja dann auch Dynamisch sein sollte.
Hoffe die Beschreibung hilft weiter, denn eine Datei Posten ist im Momet eben noch recht mager.
Grüße
Sven

Anzeige
AW: Dynamisches Kontextmenue
16.06.2008 15:00:00
Rudi
Hallo,
eigentlich recht einfach.
Namensdefinition in Namen!A:A
In ein Modul:

Sub prcNamenMenue(Optional blnCreate As Boolean = True)
Dim rngC As Range, cbPOP As CommandBarPopup, cbBTN As CommandBarButton
Const strMenue As String = "Namen einfügen"
On Error Resume Next
CommandBars("Cell").Controls(strMenue).Delete
On Error GoTo 0
If blnCreate = False Then Exit Sub
Set cbPOP = CommandBars("Cell").Controls.Add(msoControlPopup, , , 1, True)
cbPOP.Caption = strMenue
For Each rngC In Sheets("Namen").Columns(1).SpecialCells(xlCellTypeConstants)
Set cbBTN = cbPOP.Controls.Add(msoControlButton, 1)
With cbBTN
.Caption = rngC
.OnAction = "prcInsertName"
.Style = msoButtonCaption
End With
Next
End Sub
Sub prcInsertName()
If Not (ActiveSheet.ProtectContents And ActiveCell.Locked) Then
ActiveCell = CommandBars.ActionControl.Caption
End If
End Sub
Sub prcMenueEin()
prcNamenMenue
End Sub
Sub prcMenueAus()
prcNamenMenue False
End Sub

Klassenmodul Blatt Namen:


Private Sub Worksheet_Change(ByVal Target As Range)
prcNamenMenue
End Sub


In DieseArbeitsmappe:


Private Sub Workbook_Activate()
prcMenueEin
End Sub
Private Sub Workbook_Deactivate()
prcMenueAus
End Sub

Gruß
Rudi

Anzeige
AW: Dynamisches Kontextmenue
16.06.2008 15:55:03
Sven
Super!
Danke für die schnelle Antwort.
Funktioniert bestens.
Grüße
Sven

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige