Userform mit mehreren Combofelder inhaltlich identisch abfüllen

[enisrat]

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

[Christian Freßdorf]

Hi

Post by enisrat
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

[enisrat]

Post by Christian Freßdorf
Hi

Post by enisrat
Frage: In allen 10 Combofeldern müssen die gleichen 10 Einträge sein.

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

Danke besten....es ist so einfach, wenn man das nötige Wissen hat.
Habe viel zu weit gedacht....immer genial dieses Forum. Grüsse von
der Andi Minnig