|
Hallo zusammen!,
wäre super, wenn mir jemand helfen könnte, denn ich verzweifle langsam...
Meine Datei besteht aus 34 Worksheets - (Die Tage 1-31 und 3 weitere Tabellen).
In den einzelnen Tagen soll in der vordersten Spalte ein Produkt ausgewählt werden, in weiteren Spalten dahinter die Anzahl produzierter Teile.
Jetzt soll ich eine Maske erstellen, die nach Auswahl (eines Dropdown-Menü) des Produktes unten die Anzahl der Teile ALLER Tage ausgibt. Bei mir gibt es leider immer nur die Anzahl des ersten Tages aus, obwohl ich eigentlich alle Worksheets ablaufe...
Hier der Code. Vielen Dank im Voraus!
Private Sub CBox_Product_Change()
Dim WS As Worksheet
Dim Product As Integer
Dim Zeile As Integer
Dim Spalte As Integer
Dim PiecesiO As Integer
Dim PiecesniO As Integer
Dim PiecesTOTAL As Integer
Dim WS_Count As Integer
Dim I As Integer
Zeile = 7
Spalte = 2
For I = 1 To ThisWorkbook.Worksheets.Count - 3
Set WS = Worksheets(I)
Do While Zeile < 33
If WS.Cells(Zeile, Spalte).Value = CBox_Product.Value Then
PiecesiO = PiecesiO + WS.Cells(Zeile, 12).Value
PiecesniO = PiecesniO + WS.Cells(Zeile, 46).Value
End If
Zeile = Zeile + 1
Loop
Next I
TB_iO.Value = PiecesiO
TB_niO.Value = PiecesniO
PiecesTOTAL = PiecesiO + PiecesniO
TB_Total.Value = PiecesTOTAL
|