UF Controls in Tabelle

[Klaus-Dieter]

Hallo Florian,

so in etwa hätte ich das auch gelöst.

[snb]

Diese Code reicht schon aus:

Code:

Private Sub UserForm_Initialize()
    ListBox1.List = Tabelle1.Cells(1).CurrentRegion.Value
    ComboBox3.List = Application.Index(ListBox1.List, 1, Array(2, 3))
End Sub

Private Sub ComboBox3_Change()
   For j = 1 To ListBox1.ListCount - 1
      Me(ListBox1.List(j, 0)).Caption = ListBox1.List(j, 1 + ComboBox3.ListIndex)
   Next
End Sub