Gruppe
Ereignis
Problem
Der Wert in Zelle A20 soll sich bei Eingaben in Zelle A1 um den dort eingegebenen Wert verringern.
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