ComboBox Initialisierung funktioniert nicht
11.02.2019 13:09:11
Oisse
ich möchte gerne in einem Formular eine Combobox haben, die mir die Tabelle des aktiven Blattes widerspiegelt. In einer dieser Spalten möchte ich dann den Wert ändern können und die komplette Zeile dann in ein anderes Tabellenblatt übertragen.
Hintergrund ist:
Im aktiven Tabellenblatt befinden sich die gemachten Bestellungen.
Nun kann es vorkommen, dass Artikel nachbestellt werden müssen, die bereits bestellt sind, deren Menge aber nicht reicht (z.B. weil man auf der Baustelle feststellt, es müssen nochmal Fliesen nachbestellt werden).
Aber bereits beim Initialisieren gibt`s Probleme. Irgendwie krieg ich das nicht hin.
Mein momentaner Code:
Private Sub UserForm_Initialize()
Dim wkb As Workbook
Dim wks As Worksheet
Dim lz As Integer
Dim i As Integer
Dim k As Integer
Set wkb = ThisWorkbook
Set wks = wkb.ActiveSheet
Me.cbb_Artikel.ColumnCount = 14
Me.cbb_Artikel.ColumnWidths = "40;40;40;40;40;70;55;40;40;40;30;30;30;20"
lz = wks.Cells(Rows.Count, 3).End(xlUp).Row
k = 0 'Zeile Startwert in der ComboBox
For i = 3 To lz
With Me.cbb_Artikel
.AddItem " "
.List(k, 0) = wks.Cells(i, 1)
.List(k, 1) = wks.Cells(i, 2)
.List(k, 2) = wks.Cells(i, 3)
.List(k, 3) = wks.Cells(i, 4)
.List(k, 4) = wks.Cells(i, 5)
.List(k, 5) = wks.Cells(i, 6)
.List(k, 6) = wks.Cells(i, 7)
.List(k, 7) = wks.Cells(i, 8)
.List(k, 8) = wks.Cells(i, 9)
.List(k, 9) = wks.Cells(i, 10)
.List(k, 10) = wks.Cells(i, 11)
.List(k, 11) = wks.Cells(i, 12)
.List(k, 12) = wks.Cells(i, 13)
.List(k, 13) = wks.Cells(i, 14)
End With
k = k + 1
Next i
End Sub
Kann mir bitte jemand helfen?
Danke schon mal
Gruß Oisse