title image


Smiley Re: Mehrere Combo Boxes
Hi,



nich wundert, dass der Code in dieser Form funktioniert. Wenn das Teil über die Symbolleiste Steuerelemente Toolbox eingefügt wurde, muss man es als Objekt ansprechen. Bei mir in Word XP funktioniert das so:

Sub Fuelle_MSFormsComboBox()

Dim objCtl As MSForms.ComboBox

'

Set objCtl = ActiveDocument.ComboBox1

With objCtl

.Clear

.AddItem ""

.AddItem "Auto"

.AddItem "Zug"

.ListIndex = 1

End With

'

Set objCtl = ActiveDocument.ComboBox2

With objCtl

.Clear

.AddItem ""

.AddItem "Apfel"

.AddItem "Birne"

.ListIndex = 1

End With

'

Set objCtl = ActiveDocument.ComboBox3

With objCtl

.Clear

.AddItem ""

.AddItem "Gemüse"

.AddItem "Obst"

.ListIndex = 1

End With

End Sub      Hubert

Jedes Betriebsystem hat sein allgegenwawrtiges Maskottchen:

Unix den Daemon,

MacOS den Apfel,

Linux den Pinguin,

Windows die allgemeinen Schutzverletzungen.



geschrieben von

Anhang
Bild 12589 zu Artikel 583561

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: