Gruppe
Ereignis
Bereich
Change
Thema
Werterhöhung einer Zelle bei Eingabe in einer anderen
Problem
Der Wert in Zelle A20 soll sich bei Eingaben in Zelle A1 um den dort eingegebenen Wert verringern.
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Application.EnableEvents = False
Range("A20").Value = Range("A20").Value - Range("A1").Value
On Error GoTo ERRORHANDLER
ERRORHANDLER:
Application.EnableEvents = True
End Sub