Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LoWert1 As Long
Dim LoWert2 As Long
If Target.Address(False, False) = "A1" Then
LoWert1 = Target
Application.EnableEvents = False
Application.Undo
LoWert2 = Target
Target = LoWert1
Target.Offset(0, 1) = LoWert1 - LoWert2
Application.EnableEvents = True
End If
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LoWert1 As Long
Dim LoWert2 As Long
If Target.Address(False, False) = "gemeinkosten!A1" Then
LoWert1 = Target
Application.EnableEvents = False
Application.Undo
LoWert2 = Target
Target = LoWert1
Target.Offset(0, 1) = LoWert1 - LoWert2
Application.EnableEvents = True
End If
End Sub