Fehler im Makro

Private Sub Werte_setzen(Target As Range, Increment As Integer)

    On Error Resume Next

    Dim Tbl As ListObject, NZ As ListRow

    

    If Not Intersect(Target, Range("C4:C500")) Is Nothing Then

        'Log schreiben

        Set Tbl = ThisWorkbook.Sheets("Mehlkosten").ListObjects("DBS_2")

        Set NZ = Tbl.ListRows.Add

        NZ.Range(1, 1).Value = Target.Offset(0, -1)

        NZ.Range(1, 2).Value = Now

        NZ.Range(1, 3).Value = Environ("Username")

        NZ.Range(1, 4).Value = Increment

        NZ.Range(1, 5).Value = Target.Offset(0, -4)

        

        Target.Value = Target.Value + Increment

        Target.Offset(, 1).Value = Now

    End If

End Sub