Combobox mit AddItem macht Probleme
23.02.2016 16:20:01
Tobias
ich habe mir mit Hilfe eines Tutorials eine Combobox so programiert das sie mir in meiner Userform in den Restlichen Comboboxen Werte vorschlägt. Nun ist es so, dass es 12 weitere Comboboxen sind, man aber nur 10 Werte mit AddItem verarbeiten kann. Könnt ihr mir sagen wie ich den Code umschreiben muss?
Private Sub cboAusfuehrung_Change()
Dim a As Integer
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboTraegermaterialKorpus.Value = Me.cboAusfuehrung.List(a, 1)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboKantenmaterialKorpus.Value = Me.cboAusfuehrung.List(a, 2)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboDeckmaterialKopus.Value = Me.cboAusfuehrung.List(a, 3)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboOberflaecheKorpus.Value = Me.cboAusfuehrung.List(a, 4)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboTraegermaterialFronten.Value = Me.cboAusfuehrung.List(a, 5)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboKantenmaterialFronten.Value = Me.cboAusfuehrung.List(a, 6)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboDeckmaterialFronten.Value = Me.cboAusfuehrung.List(a, 7)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboOberflaecheFronten.Value = Me.cboAusfuehrung.List(a, 8)
Me.cboAusfuehrung.SetFocus
a = Me.cboAusfuehrung.ListIndex
Me.cboTraegermaterialLaden.Value = Me.cboAusfuehrung.List(a, 9)
' Me.cboAusfuehrung.SetFocus Private Sub UserForm_Initialize()
'Werte in den Comboboxen
Dim rngAusfuehrung As Range
For Each rngAusfuehrung In Range("Ausführung")
With Me.cboAusfuehrung
.AddItem rngAusfuehrung.Value
.List(.ListCount - 1, 1) = rngAusfuehrung.Offset(0, 1).Value
.List(.ListCount - 1, 2) = rngAusfuehrung.Offset(0, 2).Value
.List(.ListCount - 1, 3) = rngAusfuehrung.Offset(0, 3).Value
.List(.ListCount - 1, 4) = rngAusfuehrung.Offset(0, 4).Value
.List(.ListCount - 1, 5) = rngAusfuehrung.Offset(0, 5).Value
.List(.ListCount - 1, 6) = rngAusfuehrung.Offset(0, 6).Value
.List(.ListCount - 1, 7) = rngAusfuehrung.Offset(0, 7).Value
.List(.ListCount - 1, 8) = rngAusfuehrung.Offset(0, 8).Value
.List(.ListCount - 1, 9) = rngAusfuehrung.Offset(0, 9).Value
' .List(.ListCount - 1, 10) = rngAusfuehrung.Offset(0, 10).Value