mehreres überarbeiten, wenn Wert negativ
07.09.2017 13:59:37
Xero
Hallo,
seit einiger Zeit sitze ich nun schon an diesem Projekt, komme aber aktuell mit meinen Anfänger-Kenntnissen, was VBA angeht, einfach nicht mehr weiter.
Ich habe ein Tabellenblatt, auf dem manuelle Eingaben erfolgen (gelb) und eines mit einer automatisierten Auswertung (grün). Es werden Lagerbewegungen abgebildet. Wenn etwas entnommen wird, soll von der zuletzt dem Wareneingang zugeführten Rechnungsnummer entnommen werden (LIFO-Methode). Soweit funktioniert auch alles.
Nun zum Problem: Wenn mehr entnommen wird, als von der letzten Rechnungsnummer noch Teile im Lager liegen, rutscht mein Bestand an Teilen dieser Rechnungsnummer ins Negative. Das darf nicht sein.
Meine Überlegungen hierzu sind, dass die entstandene negative Stückzahl im Blatt der manuellen Eingabe automatisch in eine neue Zeile geschrieben wird. Im Blatt "Material 3" entsteht dadurch eine weitere Zeile in der Entnahme-Tabelle. Bei dieser soll die Rechnungsnummer per VBA-Skript gleich noch angepasst werden, da nun ja von der nächst-Älteren Rechnung entnommen wurde. Falls aber auch diese Rechnungsnummer ins Negative fallen sollte, müsste der Prozess solange wiederholt werden, bis das nicht mehr der Fall ist.
Ich habe erst während dieses Projektes begonnen, mich mit VBA zu beschäftigen. Ich denke, ihr versteht, dass das Ganze mein "KnowHow" massiv übersteigt :D
PS: Ich habe überall mit Spaltenverweisen gearbeitet, da ich noch keine Ahnung habe, wie groß das Ganze mal wird - z.B. Range("W:W")
https://www.herber.de/bbs/user/116087.jpg
https://www.herber.de/bbs/user/116088.jpg (Hier die URLs zu den Bildern, falls sie nicht vollständig angezeigt werden)
Und hier ist noch die Excel-Datei (Makro-bereinigt) https://www.herber.de/bbs/user/116089.xlsx
Riesen Dank vorab schon fürs Versuchen :)