Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Zelleinträge den Werten in einer zweiten Zelle hinzuaddieren
Gruppe
Change
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