Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCol As Integer
If Target.Column = 2 And Target.Worksheet.Cells(Target.Row, 1).Value <> "" And Target.Worksheet.Cells(Target.Row, 2).Value <> "" Then
Application.EnableEvents = False
For iCol = 3 To Target.Worksheet.UsedRange.Columns.Count
Target.Worksheet.Cells(Target.Row, iCol) = CalcDiff(Target.Worksheet.Cells(Target.Row, 2), Target.Worksheet.Cells(1, iCol))
Next
Application.EnableEvents = True
End If
End Sub
Function CalcDiff(plz1 As String, plz2 As String) As Double
CalcDiff = Abs(Val(plz1) - Val(plz2))
End Function