Additionsfeld

Hallo!
Kann man im Excel in einem Feld eine Addition hinterlegen - so dass ich in ein Feld laufend Zahlen eingeben kann, die sich dann automatisch addieren?
Danke schon mal!
Anita.

Hallo.

Kann man im Excel in einem Feld eine Addition hinterlegen - so
dass ich in ein Feld laufend Zahlen eingeben kann, die sich
dann automatisch addieren?

Das wird wohl als Formel in einer Zelle nicht gehen. Du kannst allerdings ein entsprechendes (Formular-) Eingabefeld erstellen, das dann die aktuelle Eingabe zu einem Zellinhalt addiert und den neuen Wert in die Zelle zurückschreibt.

Gruß kw

Das wird wohl als Formel in einer Zelle nicht gehen. Du kannst
allerdings ein entsprechendes (Formular-) Eingabefeld
erstellen, das dann die aktuelle Eingabe zu einem Zellinhalt
addiert und den neuen Wert in die Zelle zurückschreibt.

… und etwa so aussehen könnte:

Sub CommandButton1\_Click()
Dim Mldg, Titel, Voreinstellung, Wert1

Mldg = "Bitte den neuen Wert für Zelle A1 eingeben" ' Aufforderung festlegen

Titel = "Neuer Wert für Zelle A1" ' Titel festlegen

Voreinstellung = "0" ' Voreinstellung festlegen

' Meldung, Titel und Standardwert anzeigen

Wert1 = InputBox(Mldg, Titel, Voreinstellung)

[A1].Value = Wert1 + [A1].Value

End Sub

gruss moritzbock

Hab´s inzwischen entdeckt:
man kann in der Zelle - in´s Menue-Feld geklickt eine Formel eingeben (=5+6+7…) und in der Zelle wird dann die Summe angegeben.
Danke trotzdem!
Anita

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hab´s inzwischen entdeckt:
man kann in der Zelle - in´s Menue-Feld geklickt eine Formel
eingeben (=5+6+7…) und in der Zelle wird dann die Summe
angegeben.

Ja wenn dir das ja schon reichte… wer hätte das gedacht. :wink:
Der Nachteil ist ja, dass du keine Zwischensummen erhältst.

Schöne Grüße
Siegfried

Hallo nochmal!
was ist ein „SUB COMMANDBUTTON“??? Wo finde ich den?

Das wird wohl als Formel in einer Zelle nicht gehen. Du kannst
allerdings ein entsprechendes (Formular-) Eingabefeld
erstellen, das dann die aktuelle Eingabe zu einem Zellinhalt
addiert und den neuen Wert in die Zelle zurückschreibt.

… und etwa so aussehen könnte:

Sub CommandButton1_Click()
Dim Mldg, Titel, Voreinstellung, Wert1

Mldg = „Bitte den neuen Wert für Zelle A1 eingeben“ ’
Aufforderung festlegen

Titel = „Neuer Wert für Zelle A1“ ’ Titel festlegen

Voreinstellung = „0“ ’ Voreinstellung festlegen

’ Meldung, Titel und Standardwert anzeigen

Wert1 = InputBox(Mldg, Titel, Voreinstellung)

[A1].Value = Wert1 + [A1].Value

End Sub

gruss moritzbock