Office: (Office 2010) Mehrere ComboBoxen mit gleichem Inhalt füllen

Liebe Excel-Gurus

Als blutiger Anfänger stehe ich mal wieder auf dem Schlauch.

Ich habe eine Userform mit einer Multipage. Auf den einzelnen Seiten gibt es jeweils mehrere ComboBoxen. Die "geraden" Comboboxen (z.B. ComboBox2) sollten alle aus dem Tabellenblatt "Item-Modele", Spalte A und die "ungeraden"(z.B. ComboBox1) aus dem gleichen Tabellenballt Spalte B abgefüllt werden. Ich habe es mit nachfolgendem Code ausprobiert:

Private Sub Workbook_Open()
Dim wks1 As Worksheet
Dim rngBereich1 As Range

Dim wks2 As Worksheet
Dim rngBereich2 As Range

Set wks1 = ThisWorkbook.Sheets("Item-Modele")
Set rngBereich1 = wks1.Range("A2", wks1.Range("A65536").End(xlUp))

Set wks2 = ThisWorkbook.Sheets("Item-Modele")
Set rngBereich2 = wks2.Range("B2", wks2.Range("A65536").End(xlUp))


ComboBox1.List = rngBereich2.Value
ComboBox2.List = rngBereich1.Value
ComboBox3.List = rngBereich2.Value
ComboBox4.List = rngBereich1.Value
ComboBox5.List = rngBereich2.Value
ComboBox6.List = rngBereich1.Value
ComboBox7.List = rngBereich2.Value
ComboBox8.List = rngBereich1.Value
ComboBox9.List = rngBereich2.Value
ComboBox10.List = rngBereich1.Value
ComboBox11.List = rngBereich2.Value
ComboBox12.List = rngBereich1.Value

End Sub

Diesen Code füge ich in ThisWorkbook ein.

Klappt aber irgendwie nicht, die ComboBoxen bleiben leer. Hat mir einer von Euch Gurus ne Idee was ich hier falsch mache?

Besten Dank schon mal.

Gruss aus Paris

Steph

:)

 

Hi

woher soll denn der Code wissen welche Combobox er füllen soll
also wenn schon nach dem Muster

Userform1.Combobox1.list = ...

MfG Tom

 

Hi

das gehört aber auch nicht ins Workbook_Open sondern
ins Initialize der Userform
Code:

MfG Tom

 

Hallo Tom

Du bist der Grösste, klappt einwandfrei.

Besten Dank für Deine prompte Hilfe.

Gruss aus Paris

Steph