ich habe mir ein Kontextmenü erstellt mit verschiedenen Auswahlpunkten.
Nun möchte ich, dass wenn ich diese Auswahlpunkte anklicke der Wert in eine markierte Zelle übertragen wird.
Ist das möglich und wie stelle ich sowas an.
Gruß
chito
'Kontextmenü
With Application.CommandBars("Cell")
'Vorhandenes Kontextmenü leeren
Do While .Controls.Count > 0
.Controls(1).Delete
Loop
With .Controls.Add(msoControlPopup)
.Caption = "Auswahl Dematic Positionen"
.BeginGroup = True
With .Controls.Add(msoControlButton)
.Caption = "Ship Lead"
.onAction = "m"
.FaceId = 23
End With
With .Controls.Add(msoControlButton)
.Caption = "Lead Produktion"
.onAction = "m1"
.FaceId = 23
End With
With .Controls.Add(msoControlButton)
.Caption = "Truck Operator"
.onAction = "m1"
.FaceId = 23
End With
With .Controls.Add(msoControlButton)
.Caption = "Lead Produktion"
.onAction = "m1"
.FaceId = 23
End With
With .Controls.Add(msoControlButton)
.Caption = "Truck Operator"
.onAction = "m1"
End With
wenn Du 2x das selbe Makro angibst was soll dann angezeigt werden?Sub m()
ActiveCell = "Ship Lead"
End Sub
Sub m1()
ActiveCell = "Lead Produktion"
End Sub
Sub m1()
ActiveCell = "Truck Operator"
End Sub
Gruß Matthias