Summe in Zelle addieren
13.03.2005 12:07:12
danny
um in zelle zu addieren habe ich makro hinterlegt, welches auch wunderbar klappt. Dieses soll jetzt aber für weitere 11 (Registername Jan-Dez) gelten
und daran verzweifle ich. Man kann natürlich immer wieder über Kopieren Einfügen auch ans ziel kommen, aber ich habe weitere zich Datein, wo dies hinterlegt wird. Hoffe ihr könnt mir helfen.
Danke
gruss danny
Option Explicit
Dim OldTarget As Double
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range
Set RaBereich = Range("A:A:M:M")
If Target.Count > 1 Then Exit Sub
If Not Intersect(RaBereich, Target) Is Nothing Then
Application.EnableEvents = False
Target = Target + OldTarget
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
OldTarget = Target
End Sub