Additions-Makro für Bereiche (Codes)?
06.10.2004 10:36:15
Stephan
mein erstes Problem - ein Zahl in einer Zelle "automatisch" mit dem bereits dort enthaltenen Wert zu addieren - wurde Dank der Unterstützung von Beate bestens gelöst ... Hier die Codes:
(in "WorkSheet")
Dim oldvalue As Double
--------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Excel.range)
If Target.Address = "$A$80" Then
On Error GoTo fixit
Application.EnableEvents = False
Target.Value = 1 * Target.Value + oldvalue
oldvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub
und
(in "Workbook")
Private Sub Workbook_Open()
Worksheets("Sep").range("$A$80").Value = Worksheets("Sep").range("$A$80").Value
End Sub
Das zweite Problem, diese Funktion für (z.B. zwei)Bereiche (z.B. A3:A6 und B3:B6) einzurichten, konnte bisher leider nicht gelöst werden!!!
Im Prinzip denke ich, muß bei Aufruf der Tabelle die entsprechenden Zellen der Bereiche jeweils in eine eindeutig der jeweiligen Zelle zuzuordnenden Variable gelesen und gespeichert werden und bei der Addition in einer Zelle eben diese Variable mit dem neuen (eigegebenen) Wert addiert und in die entsprechende Zelle zurückgeschrieben werden. LEIDER REICHEN MEINE VB-PROGRAMMIERKÜNSTE NICHT AUS !!!!
Es wäre eine große Hilfe, wenn mir einer von Euch die Lösung des Problems in Form von Codes mitteilen könnte :-)))
Ich wünsche noch einen schönen Tag und hoffe auf Hilfe
Stephan