Office: Aufaddieren von ganzen Spalten

Hallo
Mein Problem:
In spalte B werden Zahlen eingetragen. Diese sollen mittels Button zu den Werten in spalte M aufaddiert werden.
Also der Wert aus B1 zu dem Wert aus M1, B12 zu M12 usw.
Ich habe versucht das Probelm über eine einfache WENN-Funktion zu lösen, dabei werden jedoch beim eintragen eines Wertes in Spalte B alle bereits vorhandenen und schon addierten werte erneut aufaddiert, was nicht sein darf.
Danke im Voraus

 

Hallo!

Warum addierst du denn nicht einfach in einer Hilfsspalte?
Dann reicht doch =B1+M1

Oder verstehe ich was falsch?

 

Hi Thorbin,

mit einer Formel geht das nicht, aber mit folgendem Code:

Code:

Range("M1") = Range("M1") + Range("B1")
Range("M12") = Range("M12") + Range("B12")

Bis später,
Karin

 

Hallo schatzi,
bei der addition mit hilfsspalte passiert das gleiche wie bei einer Wenn-Abfrage.
Ich gebe einen Wert bspw. in b2 ein alles ok b2+m2
Ich gebe einen Wert in b3 ein b3+m3 aber auch nochmal b2+m2
Beim dritten wert nochmal usw.
Ich bekomme es nicht hin dass ein Wert in B nur einmal verwendet wird bis er gelöscht und durch einen anderen ersetzt wird
B sind Artikelmengen M gesamtmengen. Ich will die Artikelmengen bspw. eines gesammten Monats wissen. Es werden aber nicht jeden Tag die gleichen Mengen gebraucht. Deshalb die gesammtmenge in M die sich um die Einzelmenge in B erhöhen muss und zwar nur einmal pro bestellung.

Hallo Beverly
Im prizip ok. nur habe ich einige 100 Zeilen. Währe schön wenn das etwas körzer möglich währe als ein paar 100 mal die Formel einzutippen

Danke für eure schnellen Antworten.

 

Hi Thorbin,

benutze anstelle eines Buttons das Worksheet_Change Ereignis:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then
        Application.EnableEvents = False
        If Target.Count = 1 And IsNumeric(Target) Then Target.Offset(0, 11) = _
            Target.Offset(0, 11) + Target
        Application.EnableEvents = True
    End If
End Sub

Bis später,
Karin

 

Hallo Karin,
Danke, super, genau das was ich gesucht habe.
Funktioniert einwandfrei.

mfg
Thorbln

 

Nachgehackt

Wie muss ich die Formel von Karin abändern, wenn anstelle der Felder in denen Werte manuel eingegeben werden, ergebnisse von Berechnungen abgefragt werden sollen.?

Beispiel:
Spalte A=1, Spalte B=2, Spalte C=A+B, Spalte D=D+C

 

Hi Thorbin,

wie meinst du das?

Wenn nur das Ergebnis der Formel geprüft werden soll (also z.B. ob es > 10 ist, oder so etwas in der Art), kannst du doch trotzdem die Zellen überwachen, auf die sich die Formel bezieht.

Falls die Antwort dein Problem nicht löst, müsstest du genauer beschreiben, was du machen willst.

Bis später,
Karin

 

Hallo Karin,
In A werden manuel Werte eingetragen. Diese werden mittels deiner Formel in F aufaddiert. Soweit sogut.

Nun sollen die Werte aus C genommen werden und in D aufaddiert werden. Also D=D+C wobei C das Ergebnis einer Formel darstellt (A+B). Der Zwischenschritt C ist nötig da die Werte nur dann auf D aufaddiet werden sollen wenn ein Kontrollfeld aktiv ist (wenn X dann A+B)

Im Anhang eine Beispieldatei.

 

Hi Thorbin,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Or Target.Address = "$B$2" Then
        If CheckBox1 Then Range("D2") = Range("D2") + Range("C2")
    End If
End Sub

Bis später,
Karin

 

Hallo Karin,
So funktioniert es, aber ich habe mich in meinem Beispiel wohl falsch ausgedrück. Es ging mir nicht um zwei Zellen sondern um die ganzen Spalten C und D

Sorry aber ich habe von VBA gerade einmal so viel Ahnung dass ich mir die Spalten oder Zeilen einstellen kann, wie ich das jetzt von Feldern auf Spalten ummünzen kann ist mir ein Rätzel.

 

Hi Thorbin,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column = 2 And Target.Row > 1 Then
        If Target.Count = 1 Then
            If CheckBox1 Then Cells(Target.Row, 4) = Cells(Target.Row, 4) + Cells(Target.Row, 3)
        End If
    End If
End Sub

Bis später,
Karin

 

Hallo Karin,
Danke für den Code.
Jetzt habe ich nur noch ein Problem, nämlich dass das Blstt geschützt ist und ich immer wieder dadurch eine Fehlermeldung bekomme.
Wie schalte ich temporär den Schutz aus damit die Bereichnung erfolgen kann?

mfg
Thorbln

 

Hi Thorbin,

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Or Target.Column = 2 And Target.Row > 1 Then
        If Target.Count = 1 Then
            ActiveSheet.Unprotect "Passwort" '<== hier das Passwort falls mit Passwort geschützt
            If CheckBox1 Then Cells(Target.Row, 4) = Cells(Target.Row, 4) + Cells(Target.Row, 3)
            ActiveSheet.Protect "Passwort"
        End If
    End If
End Sub

Bis später,
Karin

 

Hallo Karin,
Das Script funktioniert einwandfrei.
Leider ist mir aufgefallen, dass ich einen fatalen Denkfehler gemacht habe.
Sorry

Was ich brauche ist folgendes:
alle Werte aus Spalte A müssen von Spalte D abgezogen werden wenn das Kontrollfeld aktiviert oder ein Button betätigt wird. Welche Variante ist gleichgültig.