commandbar problem über Rechtsklick!!!
17.09.2002 16:25:08
Davidx
Danke im Vorraus
Sub combar()
With Application.CommandBars("cell").Controls _
.Add(Type:=msoControlComboBox, Before:=1)
.AddItem Text:="First Item", Index:=1
.AddItem Text:="Second Item", Index:=2
.DropDownLines = 3
.DropDownWidth = 75
.ListHeaderCount = 0
End With
End Sub