Gruppe
Ereignis
Problem
Bei Eingaben in die Spalten C:D soll sich der Lagerbestand in Spalte E anpassen.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 3 And Target.Column <> 4 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Column = 3 Then
Cells(Target.Row, 5).Value = Cells(Target.Row, 5).Value + Target.Value
Else
Cells(Target.Row, 5).Value = Cells(Target.Row, 5).Value - Target.Value
End If
End Sub