![]() |
Betrifft: Dynamisches Kontextmenue
von: 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
![]() |
Betrifft: AW: Dynamisches Kontextmenue
von: Franc
Geschrieben am: 16.06.2008 12:17:39
Post mal bitte ein Beispiel, wie es in der Liste steht.
![]() |
Betrifft: AW: Dynamisches Kontextmenue
von: Sven
![]() |
Betrifft: AW: Dynamisches Kontextmenue
von: Rudi Maintaire
Geschrieben am: 16.06.2008 15:00:04
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
![]() |
Betrifft: AW: Dynamisches Kontextmenue
von: Sven
![]() |
Dynamisches Diagramm |