Additions Problem

[lukasbrgg]

Guten Morgen!

Ich habe folgendes Problem:

Ich möchte in Excel eine Zelle stetig addieren und nur addieren. Z.B. In Zelle A3 ist mein Endergebnis. In Zelle A5 mein Summand. Wenn jetzt in Zelle A3 bereits 10 steht und ich in A5 7 dann will ich in A3 17 stehen haben. Wenn ich die zahl in A5 jetzt auf 3 änder dann will ich anstatt 14 ,was normal stehen würde da die Zahl kleiner wird, 20 stehen haben usw. Ist dies irgenwie möglich mit oder ohne Makro? Wenn ja bitte ich um Erklärung . Danke

[steve1da]

Hola,

Code:

Ist dies irgenwie möglich mit oder ohne Makro

nein.

Gruß,
steve1da

[Bast4i]

Hallo Lukas.

Mit Makro auf jeden Fall. Ohne muss ich mal überlegen.

Gruß
Sebastian

[lukasbrgg]

@Bast4i
Wenn du weißt wie es mit Makro funktioniert wäre top! Hab nichts gegen eine Makro Lösung!

[MisterBurns]

Na klar geht das ohne Makro.
Zelle A5 markieren und Strg+C drücken. Danach Zelle A3 markieren, mit der Maus auf Einfügen - Inhalte einfügen gehen, die Option "Addieren" auswählen und Ok drücken.

Wenn du das Ganze ohne Makro automatisiert haben willst: No way!

Makrolösung:

Code:

Sub Addieren()
Range("A3") = Range("A3") + Range("A5")
End Sub

Das Makro kannst du dir auf eine Schaltfläche legen oder auch mittels Tastenkürzel aufrufen.

[Bast4i]

Hallo Lukas.
Probier mal folgeden Code.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range) 'Event bei Ändern eines Zelleninhalts
'###################################################################################################################################################################################################
'#
'# Diese Funktion summiert fortlaufend (bei einer Änderung des Inhalts) eine Zelle mit einer anderen Zelle.
'#
'###################################################################################################################################################################################################

If Target.Column = 1 And Target.Row = 5 Then 'Prüfen, ob die veränderte Zelle A5 ist.
   Cells(3, 1) = Cells(3, 1) + Cells(5, 1) 'Summe von A3 und A5 bilden und in A3 schreiben.
End If

Cells(5, 1).Select 'Wieder Zelle A5 auswählen.

End Sub

Dann wird die Summe automatisch gebildet, sobald sich die Zelle A5 (Summand) ändert.

Gruß
Sebastian

[Bast4i]

Den Code musst Du im vba-Editor in die betroffene Tabelle einfügen.

Mit Formeln gaht das meiner Meinung nach nicht.

Gruß
Sebastian