Clever-Excel-Forum - Zwei Comboboxen in einer Userform ansprechen

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

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

Hallo atilla,

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

Dir noch einen schönen Abend.

Gruß

Bookshelf3011