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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen