Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [a4:c4]) Is Nothing Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Select Case Target.Column
Case 2
[d4] = [d4] + Target
Case 3
[d4] = [d4] - Target
End Select
fehler:
Application.EnableEvents = True
End Sub
Das Script Habe ich leicht geändert
wie müsste es abgeändertwerden wenn
der nächste Bestand in zelle a5 bis d5 stehen soll ?
THX Bernd