Userform mit mehreren Combofelder inhaltlich identisch abfüllen

03/06/2010 - 09:31 von enisrat | Report spam
Hallo

Ich habe ein Userform mit total 10 Combofeldern. Diese enthalten ca.
10 Eintràge.
Frage: In allen 10 Combofeldern müssen die gleichen 10 Eintràge sein.
Wie bewerkstellige ich das, ohne dass ich für jedes Combofeld die
Eintràge .additem = "Text" mache.
Hier ein Bespielcode wie ich es jetzt habe
With cbox_zuga
.AddItem "Mustertesxt1"
.AddItem "Mustertesxt1"
.AddItem "Mustertesxt1"
.AddItem "Mustertesxt1"

End With
With cbox_zugb
.AddItem "Mustertesxt1"
.AddItem "Mustertesxt1"
.AddItem "Mustertesxt1"
.AddItem "Mustertesxt1"

End With
Danke für Hinweise
 

Lesen sie die antworten

#1 Christian Freßdorf
03/06/2010 - 10:11 | Warnen spam
Hi

Frage: In allen 10 Combofeldern müssen die gleichen 10 Eintràge sein.



z.B. nach folgendem Schema:

With Me.ComboBox1
.AddItem "Mustertext1"
.AddItem "Mustertext2"
.AddItem "Mustertext3"
.AddItem "Mustertext4"
End With
Me.ComboBox2.List() = Me.ComboBox1.List()
Me.ComboBox3.List() = Me.ComboBox1.List()
'...

HTH
Christian

Ähnliche fragen