title image


Smiley Mehrere Combo Boxes
Hallo,



bei meinem Dokument mit drei Kombinationsfeldern lasse ich diese beim Öffnen wie folgt füllen:



Private Sub Document_open()

ComboBox1.AddItem ""

ComboBox1.AddItem "Auto"

ComboBox1.AddItem "Zug"



ComboBox2.AddItem ""

ComboBox2.AddItem "Auto"

ComboBox2.AddItem "Zug"



ComboBox3.AddItem ""

ComboBox3.AddItem "Auto"

ComboBox3.AddItem "Zug"

End Sub



Wenn ich nun mehrere KombiFelder füllen (z.B. bei einem Serienbrief). Bei Serie geht das nicht mehr, weil auf den Folgeseiten aus ComboBox1 -> ComboBox11 wird, etc.



so geht`s nicht:



Sub Test()

Dim i%

For i = 1 To 3

ComboBox(i).AddItem ""

ComboBox(i).AddItem "Auto"

ComboBox(i).AddItem "Zug"



ComboBox(i).AddItem ""

ComboBox(i).AddItem "Auto"

ComboBox(i).AddItem "Zug"



ComboBox(i).AddItem ""

ComboBox(i).AddItem "Auto"

ComboBox(i).AddItem "Zug"

End Sub



Wer kann mir weiterhelfen?
Danke und Gruss
MeTester
_________________________________
MS Office 2003 auf XP-Prof@Intel D

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: