Die summewenns Formel berechnet nach aktuellem Datum, ändert sich der Wert sollte aber trotzdem in der Nachbarzelle der erste Wert beibehalten werden.
Option Explicit
Sub Makro1()
Range("A1") = Range("B23")
End Sub
nur wenige schauen auf Deinen Rechner und sehen die Datei.Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("C4:C360")) Is Nothing Then Exit Sub
With Target
If .Rows.Count > 1 Then Exit Sub
If Not IsNumeric(.Value) Then
MsgBox "Bitte Zahl eingeben"
.Value = ""
.Activate
Exit Sub
End If
Application.EnableEvents = False
.Offset(0, 1) = .Offset(0, 1).Value + .Value
Application.EnableEvents = True
End With
End Sub