Hi,

I will telecommand an excel application from another excel application. All
works fine, except 2 combobox form controls, which I can't set from outside.
How can I set a combobox form control in an App1 by code from my 2nd App?

Set app1 = CreateObject("Excel.Application")
Set wb1 = appSchein.Workbooks.Open("Test.xls")

Set ws1 = wbSchein.Worksheets("Employees")
app1.Visible = True

ws1.Activate
ws1.Shapes("combobox1").select
?????????????????? does not work
SendKeys ("February")
??????????????????

Thanks
Hans

You mean a the forms toolbar and not the control toolbox toolbar

Dim drpdown as Excel.DropDown

.. . .


set drpdown = ws1.Dropdowns("combobox1")
drpdown.ListIndex = 2

--
Regards,
Tom Ogilvy



"Hans Preuer" wrote in message
...
Hi,

I will telecommand an excel application from another excel application.
All works fine, except 2 combobox form controls, which I can't set from
outside. How can I set a combobox form control in an App1 by code from my
2nd App?

Set app1 = CreateObject("Excel.Application")
Set wb1 = appSchein.Workbooks.Open("Test.xls")

Set ws1 = wbSchein.Worksheets("Employees")
app1.Visible = True

ws1.Activate
ws1.Shapes("combobox1").select ?????????????????? does not work
SendKeys ("February") ??????????????????

Thanks
Hans

Hi Tom,

Thank you for your Answer. The combobox is from the control toolbox toolbar
and not from the forms toolbar. Your code always results in an error
("Application or object specific error"). Is it possible to do it with a
toolbar from the controlbox?

Thanks for your help!!!
Hans


"Tom Ogilvy" schrieb im Newsbeitrag
...
You mean a the forms toolbar and not the control toolbox toolbar

Dim drpdown as Excel.DropDown

. . .


set drpdown = ws1.Dropdowns("combobox1")
drpdown.ListIndex = 2

--
Regards,
Tom Ogilvy



"Hans Preuer" wrote in message
...
Hi,

I will telecommand an excel application from another excel application.
All works fine, except 2 combobox form controls, which I can't set from
outside. How can I set a combobox form control in an App1 by code from my
2nd App?

Set app1 = CreateObject("Excel.Application")
Set wb1 = appSchein.Workbooks.Open("Test.xls")

Set ws1 = wbSchein.Worksheets("Employees")
app1.Visible = True

ws1.Activate
ws1.Shapes("combobox1").select ?????????????????? does not work
SendKeys ("February") ??????????????????

Thanks
Hans

ws1.Activate
ws1.OleObjects("combobox1").Object.Value = "February"

--
Regards,
Tom Ogilvy



"Hans Preuer" wrote in message
...
Hi Tom,

Thank you for your Answer. The combobox is from the control toolbox
toolbar and not from the forms toolbar. Your code always results in an
error ("Application or object specific error"). Is it possible to do it
with a toolbar from the controlbox?

Thanks for your help!!!
Hans


"Tom Ogilvy" schrieb im Newsbeitrag
...
You mean a the forms toolbar and not the control toolbox toolbar

Dim drpdown as Excel.DropDown

. . .


set drpdown = ws1.Dropdowns("combobox1")
drpdown.ListIndex = 2

--
Regards,
Tom Ogilvy



"Hans Preuer" wrote in message
...
Hi,

I will telecommand an excel application from another excel application.
All works fine, except 2 combobox form controls, which I can't set from
outside. How can I set a combobox form control in an App1 by code from
my 2nd App?

Set app1 = CreateObject("Excel.Application")
Set wb1 = appSchein.Workbooks.Open("Test.xls")

Set ws1 = wbSchein.Worksheets("Employees")
app1.Visible = True

ws1.Activate
ws1.Shapes("combobox1").select ?????????????????? does not work
SendKeys ("February") ??????????????????

Thanks
Hans