多表库存允许输入订购数量，一旦产品交付，库存栏将更新为现有+订购

Question

我一直为这个问题伤神。

我有一份包含 10 张纸和 500 种不同物品的库存。 入库要输入数据，您可以选择制造商 (Lieferant)、此商品所在的页面 (Seite)，然后选择订购数量 (Anzahl)。输入后，订购数量会自动显示在正确的表单上，即该商品的行中。库存概览您可以看到“订购数量”已转移到“Bestellt”（已订购）栏中，当前库存水平位于“Lagerbestand”（库存）栏中。

现在来谈谈问题：当商品交付后，我将其从“库存条目”表中移除，它就会从“已订购”列中消失。但是，我希望库存 (Lagerbestand) 增加订购的数量。我知道我需要一个宏来实现这一点，但我实在不知道从哪里开始，因为我的 VBA 知识有限。

我试过了：

Sub CheckDuplicate()

    'Declare variables
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim match As Range
    
    'Set the worksheet variable to the active worksheet
    Set ws = ActiveSheet
    
    'Set the range variable to column D in the worksheet
    Set rng = ws.Range("D:D")
    
    'Loop through each cell in the range
    For Each cell In rng
        'If the value in the cell is not blank
        If cell.Value <> "" Then
            'Search the range for a duplicate of the cell's value
            Set match = rng.Find(What:=cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
            'If a match is found and it is not the original cell
            If Not match Is Nothing And match.Address <> cell.Address Then
                'Add the value in Bestellung!F6 to the cell 4 columns to the right of the duplicate
                ws.Cells(match.Row, match.Column + 4).Value = ws.Cells(match.Row, match.Column + 4).Value + ws.Cells(cell.Row, 6).Value
            End If
        End If
    Next cell

End Sub

但使用时什么也没有发生。

我将非常感激任何帮助，并乐意澄清任何事情。