1.8k Aufrufe
Gefragt in Tabellenkalkulation von
Hallo

ich benötige eine Formel um Zahlen in Exel aufzusummieren.
summe=summe+x
d.h.: wenn ich in die Spalte A1 den wert 5 eingebe muss in der Summe bei B1 5 stehen, wenn ich aber jetzt einen neuen Wert in A1 z.B 3 eingebe und bestätige muss unter B1 8 stehen.
Wie kann ich diese Formel schreiben?

Gruß Johannes

5 Antworten

0 Punkte
Beantwortet von saarbauer Profi (15.6k Punkte)
Hallo,

das was du vorhast geht nur mit einem Makro, als formel nicht machbar

Gruß

Helmut
0 Punkte
Beantwortet von
Und wie funktioniert das mit dem Makro.
Ich weiss garnicht was ein Makro ist und wie das funktioniert

Gruß Johannes
0 Punkte
Beantwortet von saarbauer Profi (15.6k Punkte)
Hallo,

du solltest mal genauer erklären was du vorhast, vielleicht gibt es auch noch eine andere Lösung

Gruß

Helmut
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

ein beispiel

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If IsNumeric(Cells(1, 2)) Then 'eingabe ist B1
If Target.Row = 1 And Target.Column = 2 Then
Cells(1, 1) = Cells(1, 1) + Cells(1, 2) 'ausgabe ist A1
End If
End If
Application.EnableEvents = True
End Sub
0 Punkte
Beantwortet von nighty Experte (6.6k Punkte)
hi all ^^

hier noch ein beispiel fuer + - */

gruss nighty

A1 ausgabe
B1 eingabe

C1 click = +
D1 click = -
C2 click = *
D2 click=/

einzufuegen
alt+f11/projektexplorer/deinetabelle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.EnableEvents = False
If Cells(1, 2) <> "" Then 'eingabe B1
If Target.Row = 1 And Target.Column = 3 Then 'ist C1 fuer +
Cells(1, 1) = Cells(1, 1) + Cells(1, 2) 'ergebnis A1
Cells(2, 2).Activate
End If
If Target.Row = 1 And Target.Column = 4 Then 'ist D1 fuer -
Cells(1, 1) = Cells(1, 1) - Cells(1, 2) 'ergebnis A1
Cells(2, 2).Activate
End If
If Target.Row = 2 And Target.Column = 3 Then 'ist C2 fuer *
Cells(1, 1) = Cells(1, 1) * Cells(1, 2) 'ergebnis A1
Cells(2, 2).Activate
End If
If Target.Row = 2 And Target.Column = 4 Then 'ist D2 fuer /
Cells(1, 1) = Cells(1, 1) / Cells(1, 2) 'ergebnis A1
Cells(2, 2).Activate
End If
End If
Application.EnableEvents = True
End Sub
...