Rechner VBA, "TotalQuantity Änderung" nicht vollständig
12.02.2024 16:16:10
VinoRosso1893
Hallo liebes Forum :),
ich bin aktuell dabei einen kleinen Rechner für einen Verpackungsprozess zu programmieren.
Ich habe die Grundfunktionen (Button mit festgelegtem Wert, Button für individuelle Werteingabe, Reset-Button, Anzahl zu verpackender Kartons, Maximalmenge hinterlegt,...)
Folgende Daten sind wichtig um den Rechner zu verstehen:
es gibt 4 verschiedene Bauteile, welche zu verpacken sind:
Bauteil Lila: maximale Verpackungsmenge: 871 Stück
Bauteil Grün: maximale Verpackungsmenge: 236 Stück
Bauteil Blau: maximale Verpackungsmenge: 442 Stück
Bauteil Schwarz: maximale Verpackungsmenge: 230 Stück
Die Bauteile werden immer zu 4 Verpackungseinheiten in einem Karton verpackt:
Bauteil Lila: Kartonmenge: 3484
Bauteil Grün: Kartonmenge: 944
Bauteil Blau: Kartonmenge: 1768
Bauteil Schwarz: Kartonmenge: 920
!Dadurch, dass die Bauteile immer in Chargen produziert werden kommt es am Ende einer Charge meistens dazu, dass es einen Beutel gibt, welcher die Verpackungsmenge nicht ausreizt. Bedeutet zum Beispiel für das Bauteil Lila: statt 871 sind nur 450 Bauteile im letzten Beutel.!
Der letzte Schritt der Verpackung ist die Verladung der Kartons auf eine Palette. Dort finden 24 Kartons platz.
Der Clou daran ist, dass auf einer Palette immer identisch viele Bauteile von jeder Sorte sein müssen.
Das bedeutet bei optimaler Ausnutzung sind 7360 Bauteile von jeder Sorte auf der Palette.
Aufgeteilt in:
8 Kartons des schwarzen Bauteils (4*230 = 920 // 920*8 = 7360)
8 Kartons des grünen Bauteils (4*236 = 944 // 944*7 + (3*236) +44 = 7360)
5 Kartons des blauen Bauteils (4*442 = 1768 // 1768*4 + (1*288) = 7360)
3 Kartons des lilanen Bauteils (4*871 = 3484 // 3484*2 + (1*392) = 7360)
In der Praxis passiert es aber durchaus, dass wir bei Bauteil schwarz nicht nur volle Verpackungseinheiten haben und wir am Ende nur auf 7200 Gesamtbauteile kommen und wir aktuell händisch die Mengen der anderen Farben berechnen
Ich habe mir den Rechner nun folgendermaßen vorgestellt.
Der verpackende Mitarbeiter startet beispielsweise mit Bauteil Schwarz und hat dabei 30 volle Beutel mit 230 Stück und noch 2 "angefangene" mit 100. Daraus ergibt sich eine Gesamtmenge von 7100 Stück. Da sich auf der Palette immer eine identische Anzahl an Bauteilen befinden müssen, soll nun der Rechner das Maximum von vorher 7360 auf den neu errechneten Wert von 7100 setzten. Mit dem Code, den ich aktuell habe, hat es schon funktioniert, dass bei Erreichen des "Click-Limits" der neue Wert zum Beispiel 7100 bei allen 4 Bauteilen aktualisiert wird. Leider ist der Wert aber nicht hinterlegt, sobald ich einen der Buttons "addfixedvalue" oder "addmanuallyvalue" betätige. Dort wird wieder von den ursprünglichen 7360 gerechnet. Eigentlich sollte die Änderung ja nicht so kompliziert sein, aber bei mir zerschießt es jedes Mal den Code, sobald ich eine neue Idee habe. Über Tipps und Vorschläge wäre ich sehr dankbar.
Entschuldigung für den langen Text.
Danke für die Hilfe !
Liebe Grüße