Hallo zusammen.

Ich habe eine Tabelle in der ich Mengen zu- ausbuchen möchte.

Von einem Bekanten habe ich schon Hilfe bekommen, er hat mir eine Programmierung gegeben, diese ist mir aber zu aufwendig wenn ich die tabelle erweitere.

Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address <> "$C$3" Then GoTo Zeile1
     Range("D3").Value = Range("D3").Value + Range("C3").Value
     
     

Zeile1:
     If Target.Address <> "$C$4" Then GoTo Zeile2
     Range("D4").Value = Range("D4").Value + Range("C4").Value
     
Zeile2:
     If Target.Address <> "$C$5" Then GoTo Zeile3
     Range("D5").Value = Range("D5").Value + Range("C5").Value
     
Zeile3:
     If Target.Address <> "$C$6" Then GoTo Zeile4
     Range("D6").Value = Range("D6").Value + Range("C6").Value

......

Zeile40:
     If Target.Address <> "$C$43" Then GoTo Zeile41
     Range("D43").Value = Range("D43").Value + Range("C43").Value
     
Zeile41:
     If Target.Address <> "$C$44" Then Exit Sub
     Range("D44").Value = Range("D44").Value + Range("C44").Value
        
End Sub

Hat von euch einer eine Idee wie dies einfacher geht.