Combobox aus immer größer werdende Tabelle füllen
Ralf
Ich habe eine 6 Spaltige Tabelle.
Die Spalten B D und F füllen die Comboboxen 1-3 und die Spalten C E und G füllen die Bezeichnungsfelder.
Die Datenfelder sind über Listindex verbunden, so dass immer alles aus derselben Zeile gezogen wird.
Nur habe ich aber das Problem dass die Tabelle immer größer wird und die Spalten B bis G immer länger.
Wie bekomme ich das am besten hin, dass die Comboxen immer dementsprechend gefüllt sind, ohne dass ich mit RowSource den Bereich bis 65000 definieren muss?
Anbei mein Code für den Bereich B2 bis G6.
Option Explicit
Dim arr
Private Sub UserForm_Initialize()
Sheets("Tabelle1").Select
ComboBox1.Style = fmStyleDropDownList 'manuelle Eingaben speeren
ComboBox2.Style = fmStyleDropDownList 'manuelle Eingaben speeren
ComboBox3.Style = fmStyleDropDownList 'manuelle Eingaben speeren
arr = Range("B2:G6")
Me.ComboBox1.RowSource = "b2:b6"
Me.ComboBox2.RowSource = "d2:d6"
Me.ComboBox3.RowSource = "f2:f6"
End Sub
Private Sub ComboBox2_Change()
ComboBox1.ListIndex = ComboBox2.ListIndex
ComboBox3.ListIndex = ComboBox2.ListIndex
Label1.Caption = arr(ComboBox2.ListIndex + 1, 2)
Label2.Caption = arr(ComboBox2.ListIndex + 1, 4)
Label3.Caption = arr(ComboBox2.ListIndex + 1, 6)
End Sub
Private Sub ComboBox1_Change()
ComboBox2.ListIndex = ComboBox1.ListIndex
ComboBox3.ListIndex = ComboBox1.ListIndex
Label1.Caption = arr(ComboBox1.ListIndex + 1, 2)
Label2.Caption = arr(ComboBox2.ListIndex + 1, 4)
Label3.Caption = arr(ComboBox2.ListIndex + 1, 6)
End Sub
Private Sub ComboBox3_Change()
ComboBox1.ListIndex = ComboBox3.ListIndex
ComboBox2.ListIndex = ComboBox3.ListIndex
Label1.Caption = arr(ComboBox3.ListIndex + 1, 2)
Label2.Caption = arr(ComboBox2.ListIndex + 1, 4)
Label3.Caption = arr(ComboBox2.ListIndex + 1, 6)
End Sub
Anzeige