|
Hallo,
ich möchte per Doppelklick in eine Zelle ein Kontextmenü mit einer Artikelliste aufrufen. Im Kontextmenü soll die Artikel und die Artikelnummer ersichtlich sein. Dese Daten kommen aus einer anderen Tabelle. Dies funktioniert soweit. Ich möchte jetzt per Klick nur die Artikelnummer in ein Tabelleblatt übernehmen. Mit dem Befehl OnAction bekomme ich nur beides angezeigt. Wer kann helfen?
Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim obar As CommandBar
Dim oBtn As CommandBarButton
Dim wks As Worksheet
Dim icol
Cancel = True
Set wks = Worksheets("Produkte")
Call DeleteCmdBar
Set obar = Application.CommandBars.Add( _
Name:="StringInsert", _
Position:=msoBarPopup, _
MenuBar:=False, _
temporary:=True)
icol = 1
Do Until IsEmpty(wks.Cells(icol, 1))
Set oBtn = obar.Controls.Add
With oBtn
.Caption = wks.Cells(icol, 1).Value & "-" & wks.Cells(icol, 2)
.Style = msoButtonCaption
.OnAction = "GetValue"
End With
icol = icol + 1
Loop
CommandBars("StringInsert").ShowPopup
End Sub
|