Aufaddieren von Zahlenwerten
05.09.2003 21:08:09
Matthias C.
mit diesem Code addiere ich in Spalte B5 bis B18 die Zahleneingaben in C5 bis C18 auf. Es funktioniert auch alles. Weil ich aber später einmal bis zu 70 Zeilen dieser Art benötige, würde der Code sehr lang und umständlich werden. Gibt es eine Möglichkeit, die Zeile "If Target.Address <> "$C$5" And Target.Address <> "$C$6" And..." zu verkürzen? Ich habe schon einiges versucht aber ich krieg´s einfach nicht auf die Reihe.
Danke für eure Hilfe.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$5" And Target.Address <> "$C$6"
And Target.Address <> "$C$7" And Target.Address <> "$C$8"
And Target.Address <> "$C$9" And Target.Address <> "$C$10"
And Target.Address <> "$C$11" And Target.Address <> "$C$12"
And Target.Address <> "$C$13" And Target.Address <> "$C$14"
And Target.Address <> "$C$15" And Target.Address <> "$C$16"
And Target.Address <> "$C$17" And Target.Address <> "$C$18" Then Exit Sub
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Range("B" & Right(Target.Address, 2)).Value = _
Range("B" & Right(Target.Address, 2)).Value + Target.Value
ERRORHANDLER:
On Error Resume Next
Application.EnableEvents = True
End Sub
MfG Matthias