hab hier was gefunden ...kann mir da jmd weiterhel
06.08.2014 21:13:01
Spenski
Public Sub KonText_Neu()
Dim Ctrl As CommandBarButton
Dim intZahl As Integer
For intZahl = CommandBars("Cell").Controls.Count To 1 Step -1
CommandBars("Cell").Controls(intZahl).Delete
Next
Set Ctrl = CommandBars("Cell").Controls.Add(msoControlButton)
With Ctrl
.Caption = "einfügen"
.OnAction = "einfügen"
End With
Set Ctrl = Nothing
End Sub
Public Sub einfügen()
On Error Resume Next
ActiveCell.PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
Public Sub KonText_Reset()
CommandBars("Cell").Reset
End Sub
damit verändere ich den aufbau der maske die sich mit der rechten maustaste öffne...
Frage 1 : Bekomm ich da noch einen 2ten CommandButton rein?
Frage 2 : Bekommt man den kram wo man die schriftgrösse etc einstellen kann auch noch ausgeblendet? das ich quasi beim rechtsklick nur 2 buttons habe
gruss