Office: (Office 2016) Makro für bei klick auf Schaltfläche aufaddieren und speichern

Moin,
ich versuche mich nun seit stunden an etwas und brauche mal bitte Hilfe.

Ich zeige es am besten Anhand folgenden Beispiels was ich vor habe.

A1: 0
B1:10

Nun möchte ich, dass sobald ich auf eine Schaltfläche klicke, der Wert von B1 auf A1 addiert wird und auf A1 speichert.

Danach möchte ich B1 wieder individuell beschreiben können um dann zum beispiel "20" wieder auf A1 (welcher nun 10 beträgt) addieren kann, das wichtige hierbei ist, dass es erst nach dem Klick auf die Schaltfläche geschieht und nicht dauerhaft.

In der Praxis habe ich zwei Tabellen und möchte die Daten nachdem ich sie in der einen Tabelle habe mit klick in die andere übertragen können.
Ebenso wären es in der Praxis die Daten von:

D26 -> D38 die nach einem klick auf die felder von D5 -> D17 addieren möchte.

D26 auf D5
D27 auf D6
D28 auf D7
usw.

Ich danke vorab und hoffe es ist gut beschrieben.

 

Hi,

z.B. so:

Code:

Sub Addieren()
    Dim lngZeile As Long
    For lngZeile = 26 To 38
        Cells(lngZeile - 21, 4) = Cells(lngZeile - 21, 4) + Cells(lngZeile, 4)
    Next lngZeile
End Sub

Bis später,
Karin

 

Funktioniert perfekt! Vielen Dank Karin!

 

@Karin

Wie kann ich diesen Code umschreiben wenn ich diese Funktion nun nur für D5 möchte um es auf G5 zu addieren?

 

Hi,

da braucht es dann nur 1 Zeile:

Code:

Sub Addieren()
    Range("G5") = Range("G5") + Range("D5")
End Sub

Bis später,
Karin

 

Vielen Dank funktioniert ebenso perfekt!