alter Zellenwert zu neuem addieren
Gerhard Wolf
Hallo,
zur Bildung einer Satistik müssen in einer großen Datenbank
pro Datensatz mehrere Werte addiert werden. Gibt es eine Funktion die
bewirkt, dass
zu dem alten Zahlenwert einer Zelle der neue eingegebene Wert der gleichen
Zelle
addiert wird?
Vielen Dank für eure Hilfe
Gerhard
Bernd Held
eine Standardfunktion gibt es dafür nicht, man kann aber sowas
programmieren. Bist Du an einer programmierten Lösung interessiert, dann
würde ich mich mal damit beschäftigen.
Viele Grüße
Bernd
MVP für Microsoft Excel
Das VBA-Kompendium und Makro-Einsteigerbücher mit Leseproben(PDF)
unter http://held-office.de
"Gerhard Wolf" <ike....@t-online.de> schrieb im Newsbeitrag
news:bavqc9$jm0$01$1...@news.t-online.com...
Alexander Wolff
einfach den Wert merkt (in eine Variable schreibt).
Änderst Du ihn nun mittels F2, soll bspw. nichts passieren (oder eben doch).
Überschreibst Du ihn, soll bei Abschluß mit Enter der alte Wert hervorgeholt
werden und zum jetzigen hinzuaddiert werden (wieder mit einem Ereignis).
Vorsichtshalber sollte der eingegebene Wert wieder in einer Variable
gesichert werden, damit ein Shortcut-getriebenes Undo möglich ist.
So stelle ich mir das vor.
Gruß Alexander
Gerhard Wolf <ike....@t-online.de> schrieb in im Newsbeitrag:
bavqc9$jm0$01$1...@news.t-online.com...
Thomas Ramel
Gerhard Wolf schrieb:
>
> zur Bildung einer Satistik müssen in einer großen Datenbank
> pro Datensatz mehrere Werte addiert werden. Gibt es eine Funktion die
> bewirkt, dass
> zu dem alten Zahlenwert einer Zelle der neue eingegebene Wert der gleichen
> Zelle addiert wird?
Du könntest eine 'händische' Lösung wie folgt realisieren:
Schreibe den zu addierenden Wert in eine Zelle und kopiere ihn in die
Zwischenablage.
Markiere dann alle Zellen, die um den soeben kopierten Betrag erhöht werden
sollen (mit Shift-Taste für zusammenhängende Bereiche, mit Strg-Taste für
unzusammenhängende), dann Menü Bearbeiten --> Inhalte Einfügen --> [x]
'Addieren' anwählen --> [OK]
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
[Win 2000Pro SP-3 / xl2000 SP-3]
Boris
eigentlich nur mit VBA möglich (mit Ausnahme - folgt!)
nach diesem Muster:
Option Explicit
Public z As Double
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
On Error GoTo fehler
Application.EnableEvents = False
Target = Target + z
fehler:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As
Excel.Range)
If Target.Address(0, 0) <> "A1" Then Exit Sub
On Error GoTo fehler
z = [A1]
fehler:
End Sub
Die Codes gehören als Ereignismakros in das Klassenmodul
der Tabelle und nicht in ein allgemeines Modul.
Bezieht sich testweise nur auf A1:
Sobald dort ein Wert eingetragen wird, wird dieser zum
vorherigen addiert.
Allerdings kannst du den Zellwert nicht mehr so einfach
löschen (zumindest nicht mit der Entf-Taste).
Möglichkeit ohne VBA (allerdings manchmal etwas heikel):
Extras-Optionen-Berechnen
Häkchen bei Iteration, Max: 1, Min: 0,001
Jetzt bezogen auf A1:
Schreib in A1 =A1+B1
Wenn du jetzt in B1 Werte eingibst, werden diese immer zu
A1 hinzuaddiert - geht also nicht in der selben Zelle,
aber der Wert von A1 wird immer "zwischengespeichert".
Wenn die Iteration nicht aktiviert ist, dann erhälst du
die Fehlermeldung ZIRKELBEZUG.
------------------
Gruß Boris
>-----Originalnachricht-----
>.
>
Melanie Breden
"Gerhard Wolf" schrieb:
> zur Bildung einer Satistik müssen in einer großen Datenbank
> pro Datensatz mehrere Werte addiert werden. Gibt es eine Funktion die
> bewirkt, dass
> zu dem alten Zahlenwert einer Zelle der neue eingegebene Wert der gleichen
> Zelle addiert wird?
rein mit Excel-Bordmitteln und Iterartion kannst du in einer Zelle keine Werte kumulieren.
Folgender Vorschlag mittels VBA:
Angenommen, die zu adddierende Zelle ist im ersten Tabellenblatt der Datei in Zelle A1,
dann folgende Prouzedur in das Codemodul "DieseArbeitsmappe":
Private Sub Workbook_Open()
Remember = Worksheets(1).Range("A1").Value
End Sub
In das Codemodul der Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Then
Remember = 0
Exit Sub
End If
If Not IsNumeric(Target.Value) Then
With Application
.EnableEvents = False
.Undo
.EnableEvents = True
End With
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Target.Value + Remember
Application.EnableEvents = True
Remember = Target.Value
Target.Select
End Sub
In ein allgemeines Modul:
'##############
Public Remember As Double
'##############
Hilft dir das weiter?
--
Mit freundlichen Grüßen
Melanie Breden
_____________________
[Microsoft MVP für Excel]
Gerhard Wolf
So viel und so schnelle Resonanz hätte ich nicht erwartet.
Da ich mich in Excel auf VHS-Grundkursniveau bewege, kann ich mit den
VBA Lösungen nicht so viel anfangen obwohl sie mir sehr brilliant
erscheinen.
Die Iterations-Lösung von Boris gefällt mir sehr gut und ich glaube
ich kann sie für meine Bedürfnisse ausbauen.
Vielen Dank noch einmal und schönen Abend noch (nicht zu lang am PC sitzen
bleiben! ;-))
Gerhard Wolf
"Gerhard Wolf" <ike....@t-online.de> schrieb im Newsbeitrag
news:bavqc9$jm0$01$1...@news.t-online.com...
>
hm64...@gmail.com
Ich bin Witwe von vier Kindern und stecke in einer finanziellen Situation
Dezember 2018 Und ich musste meine Rechnungen refinanzieren und bezahlen.
Ich habe versucht, nach Krediten von verschiedenen Kreditfirmen zu suchen
Privat und geschäftlich, aber nie mit Erfolg und am meisten
Banken lehnten meinen Kredit ab. Aber wie Gott es wünschte, war ich es
Dargestellt zu Gott, der einen kreditgebenden Kreditgeber fürchtet,
Das gab mir einen Kredit von 800.000 PLN, und heute bin ich
Dem Geschäftsinhaber und meinen Kindern geht es jetzt gut, wenn
Sie müssen sich mit Respekt an ein Unternehmen wenden
Sichern eines ungesicherten Kredits ohne Überprüfung
Ohne Unterschrift mit nur 3% Zinsen und
Bessere Tilgungspläne und -pläne, bitte kontaktieren Sie Philip Mark. Er weiß nicht, dass ich das tue, aber ich bin es jetzt
So glücklich und ich beschloss, den Leuten mehr Informationen über ihn zu geben, und
Ich möchte auch, dass Gott ihn noch mehr segnet. Sie
Kontaktieren Sie ihn per E-Mail. Philipmarkl...@gmail.com