Ich möchte eine kleine Wa-Wi realisieren. Für die Warenausgabe (UserForm2) soll aus einer bestehenden Liste (Lagerbestandsliste) die Artikelnamen ausgelesen, doppelte Einträge entfernt und einer Combo-Box übergeben werden. Wählt man einen Artikelnamen wird mit einem Feld_afterupdate die Liste (Spalte D) danach gefiltert und gleichzeitig wieder die Werte aus Spalte I (Einheit) in die nächste Combo-Box (Gebinde) eingelesen. Nun erfolgt die gleiche Routine. Nach Auswahl in dieser Combo-Box wird in Spalte I danach gefiltert und die Werte aus Spalte C eingelesen und an die nächste Combo-Box (Abteilung) übergeben. Bei der Auswahl (Artikel1, Kasten (20Stk) ) müssten nun in der Combo-Box Abteilung drei Werte stehen. Dort stehen aber nur zwei. Und ich komme an dieser Stelle nicht weiter. Könnt Ihr hier unterstützen?
Code aus UserForm2:
Private Sub WahlBoxGebindeCombo_afterupdate()
Worksheets("Lagerbestandsliste").Activate
Set Liste = ActiveSheet.Range("B4:E20")
Liste.AutoFilter
Liste.AutoFilter Field:=3, Criteria1:=Me.WahlBoxArtikelCombo
Liste.AutoFilter Field:=8, Criteria1:=Me.WahlBoxGebindeCombo
Dim i As Long, n As Long
Dim wks As Worksheet, vntList()
Set wks = ThisWorkbook.Sheets("Lagerbestandsliste")
WahlBoxAbteilungCombo.Clear
With wks
For i = 5 To .Cells(Rows.Count, 3).End(xlUp).Row
'For i = 5 To 30
If WorksheetFunction.CountIf(.Range(.Cells(5, 3), .Cells(i, 3)), .Cells(i, 3)) = 1 And .Rows(i).Hidden = False Then
n = n + 1
ReDim Preserve vntList(1 To 1, 1 To n)
vntList(1, n) = .Cells(i, 3)
End If
Next i
End With
Debug.Print UBound(vntList, 2)
WahlBoxAbteilungCombo.List = WorksheetFunction.Transpose(vntList)
End Sub
Danke schoneinmal im Voraus!