Zwei Comboboxen in einer Userform ansprechen

[Bookshelf3011]

Schönen Abend miteinander,

wahrscheinlich ist meine Frage für die meisten von euch leicht zu beantworten, jedoch komme ich hierbei nicht weiter und auch die Suche im Netz war
wenig erfolgreich...

In einer Userform habe ich nun zum ersten Mal zwei Comboboxen, die jeweils einen anderen Bereich im Tabellenblatt abfragen. Jedoch bekomme ich es nur
hin, dass maximal eine Combobox auch den abgefragten Bereich anzeigt.

Im unten stehenden Code stört sich Excel/VBA natürlich an der doppelten Definition, jedoch schaffe ich es wie gesagt, nur eine der Comboboxen zum laufen zu bringen.
Kann mir jemand sagen, wo mein genereller Fehler liegt? Ich vermute, ich muss die Comboboxen unterschiedlich definieren, weiß nur leider nicht wie...

Code:

Option Explicit

Private Sub CommandButton1_Click()

   ' Button "OK"
   Range("D17") = ComboBox1.Text
   Range("H17") = ComboBox2.Text
   Unload Me
End Sub

Private Sub CommandButton2_Click()

   ' Button "Abbrechen"
   Unload Me
End Sub

Private Sub UserForm_Initialize()
   ComboBox1.RowSource = Range(Range("AD4"), Range("AD200").End(xlUp)).Address
   ComboBox1.ListIndex = 0
End Sub

Private Sub UserForm_Initialize()
   ComboBox2.RowSource = Range(Range("AG4"), Range("AG200").End(xlUp)).Address
   ComboBox2.ListIndex = 0
End Sub

Vielen Dank für eure Mühen und einen schönen Abend.

Mit freundlichem Gruß

Bookshelf3011

[atilla]

Hallo,

das Initialize Ereignis darf nur einmal vorkommen.
In dem musst Du beide Comboboxen ansprechen.

Code:

Private Sub UserForm_Initialize()
  ComboBox1.RowSource = Range(Range("AD4"), Range("AD200").End(xlUp)).Address
  ComboBox1.ListIndex = 0
  ComboBox2.RowSource = Range(Range("AG4"), Range("AG200").End(xlUp)).Address
  ComboBox2.ListIndex = 0
End Sub

[Bookshelf3011]

Hallo atilla,

vielen Dank für die schnelle Antwort. Hat mir wieder sehr geholfen.

Dir noch einen schönen Abend.

Gruß

Bookshelf3011