Gruppe
Ereignis
Problem
Wie kann ich mir bei Eingaben in Spalte A den aktuellen Wert plus dem vorher in der Zelle befindlichen Wert anzeigen lassen?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not IsNumeric(Target) Or IsEmpty(Target) Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Dim dValue As Double, dPlus As Double
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
dPlus = Target.Value
Application.Undo
dValue = dPlus + Target.Value
Target.Value = dPlus
MsgBox "Gesamtwert: " & dValue
ERRORHANDLER:
Application.EnableEvents = True
End Sub