mehreres überarbeiten, wenn Wert negativ

Vorab: ich nutze Excel 2016 ;)
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")
Userbild

https://www.herber.de/bbs/user/116087.jpg
Userbild

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 :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then Exit Sub If Target.Column = 10 And Target.Row > 2 Then If Target.Value > Cells(Target.Row, 4).Value Then Application.EnableEvents = False Target.Value = Cells(Target.Row, 4).Value Application.EnableEvents = True MsgBox "Ungültiger Wert!" & vbCrLf & "Max. Stückzahl: " & Cells(Target.Row, 4). _ Value End If End If End Sub

Danke für eure schnellen Antworten.
In meinem Screenshot wurde nur von der Rechnungsnummer (32) mehr entnommen, als da ist. Insgesamt sind aber noch 300 Stk vom Material 3 im Lager, nur eben unter einer anderen Rechnungsnummer (31). Und die Zuordnung der Entnahmen zu entsprechenden Rechnungsnummern soll automatisch in Excel erfolgen. In der Praxis ist es egal, ob ein Teil von der einen oder der anderen Rechnungsnummer entnommen wurde. Leider ist das aber in der Gesetzgebung nicht so. Deshalb: Solange noch Teile im Lager liegen, sollen, wenn bei einer Entnahme der Restbestand der automatisch angesprochenen Rechnungsnummer unterschritten wird, die anderen Teile von der vorhergehenden Nummer verbucht werden.
Die Idee mit der MsgBox hatte ich auch schon, wäre aber nur meine allerletzte Option. Eben weil ich das ganze gern im Hintergrund rattern lassen möchte.
Zum Irttum, dass ich VBA vermeiden möchte: das möchte ich nichtmal ;) Ich habe nur eine Datei ohne Makro hochgeladen, damit keiner auf die Gedanken kommt, dass da vlt n Virus oder sowas den Rechner lahm legt (das soll ja über Makros ganz gut möglich sein :/ )

Beliebteste Forumthreads (12 Monate)

mehreres überarbeiten, wenn Wert negativ

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

mehreres überarbeiten, wenn Wert negativ

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread