VBA ComboBox füllen

[Izzy]

Hallo,

Ich möchte 2 Comboboxen füllen, aber irgendwie hat sich ein Fehler eingeschlichen und ich finde es nicht.
ComboBox1 funktioniert - Quelle "Daten" Spalte F
ComboBox2 funktioniert nicht - Quelle "Daten" Spalte B

seht ihr den Fehler?

Code:

Private Sub Combobox1_DropButtonClick()
ComboBox1.RowSource = "Daten!$F$2:" & _
       Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 6).End(xlUp).Address
End Sub

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.RowSource = "Daten!$F$2:" & _
       Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 6).End(xlUp).Address
End Sub

Private Sub Combobox2_DropButtonClick()
ComboBox1.RowSource = "Daten!$B$2:" & _
       Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 2).End(xlUp).Address
End Sub

Private Sub ComboBox2_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
ComboBox1.RowSource = "Daten!$B$2:" & _
       Worksheets("Daten").Cells(Worksheets("Daten").Rows.Count, 2).End(xlUp).Address
End Sub

[Werner.M]

Hallo,

du füllst mit beiden Codes die Combobox1. Beim zweiten Code mußt du schon Combobox2 schreiben wenn du die füllen willst.

Gruß Werner

[Izzy]

danke
das 2te Combobox übersehen.
Und ich saß davor und habe den Fehler einfach nicht gefunden ::D