Gruppe
Ereignis
Bereich
Change
Thema
Zelleinträge den Werten in einer zweiten Zelle hinzuaddieren
Problem
In B1 eingegebene Zahlen sollen dem Wert in Zelle A1 hinzuaddiert werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Range("A1").Value = Range("A1").Value + Target.Value
ERRORHANDLER:
Application.EnableEvents = True
End Sub