Zahlen hinzuaddieren
12.08.2003 18:14:07
Matthias C.
von der Excel-Cd habe ich folgenden Code kopiert. Wenn ich in Zelle B1 eine Zahl eingebe dann wird sie in A1 hinzuaddiert. Nun möchte ich dieses Makro aber auch für Zelle B2 und A2 anwenden können und komme mit meinen versuchen, diesen Code dafür umzustellen, einfach nicht weiter. Ich habe schon einiges versucht, aber meine VBA-kenntnisse reichen nicht ganz aus.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Exit Sub 'kann man hier nicht gleich "$B$2" mit angeben?
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Range("A1").Value = Range("A1").Value + Target.Value
ERRORHANDLER:
Application.EnableEvents = True
End Sub
Könnte mir bitte jemand einen Tip geben? Danke im Voraus!
Gruß Matthias