|
Hallo,
ich habe ein Problem in Excel bei einem Projekt an dem ich gerade arbeite. Ich trage bestimmte Geldwerte in einem täglichen Protokoll ein.. diese Werte werden in einem neuen Tabellenblatt genutzt, in welchem ich dann eine Reihe von Ergebnisse ausrechne. Diese Formeln funktionieren auch alle super und jetzt komme ich zu meinen Problem. Diese letzten Ergebnisse möchte ich in ein neues Tabellenblatt (Monatsübersicht) übertragen und diese sollen sich immer wieder aufaddieren. Die Werte der vorherigen Tabellenblätter möchte ich aber immer wieder ändern, sodass immer wieder ein neuer Wert in die letzte Monatsübersicht aufaddiert werden soll. Anhand eines Beispiels:
Ich möchte, wenn ich zum Beispiel den Wert 10 in A1 (mein Endergebnis meiner Formeln) eingebe, dann soll dieser Wert zu B1(in neuen Tabellenblatt meiner Monatsübersicht) addiert werden und A1 soll wieder neu besetzt werden können beim nächsten mal. Dabei soll B1 nie gelöscht werden, sondern jeder neue Wert, welcher in A1 eingegeben wird soll addiert werden.
Ich habe durch Recherche herausgefunden, dass dies wohl nur mit Excel VBA lösbar sein soll. Leider kenne ich mich da überhaupt nicht aus. Ich habe diesen Code hier online gefunden, aber glaube, dass sich der nur auf ein Tabellenblatt bezieht.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Cells(1, 2) = Cells(1, 2) + Cells(1, 1)
End If
Range("A1").Select
ActiveCell.FormulaR1C1 = "0"
Range("B1").Select
Application.EnableEvents = True
End Sub
Vielleicht kann mir ja jemand weiterhelfen, dass wäre echt toll!
LG
|