laufende Summe

[steve1da]

Hola,

Code:

=WENN(ZÄHLENWENN($A$2:$A2;A2)=1;0;SUMMEWENN($A$2:$A$4;A2;$B$2:$B$4))

Gruß,
steve1da

[juen9]

Hallo allerseits, brauch dringend Hilfe!![img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

musste eine Excel Tabelle zu Enasarco erstellen[img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]

in einer Spalte stehen die Namen (immer wieder wiederholt; also dieselben Namen kommen in dieser Spalte öfters vor)
in einer Spalte stehen die Enasarco Beträge der jeweiligen Personen


nun benötige ich eine Spalte mit der fortlaufenden Summe, sozusagen: 
Bsp. 

Name     Enasarco Betrag
"Felix"      " 339"
"susi"       " 122"
"Felix"      "100"


-kommt der Name "Felix" das erste Mal vor dann muss Null das Ergebnis sein, da bis zum ersten Namen bis hetzt noch kein Beitrag ist
-kommt "Felix" das 2. Mal vor muss 339 stehen
- kommt Felix das 3. Mal vor müsste dann 439 stehen usw.

und dies soll auch bei den anderen Namen so sein und ich komme keinen Schritt weiter, Bitte HILFE!!

[shift-del]

Ich nominiere steve1da zum Helfer des Jahres.
Es schafft es die Antwort drei Minuten vor der Frage zu geben.
Mehr kann man einfach nicht erwarten.

[steve1da]

Hola,

heute läufts einfach  :25: :25:

Gruß,
steve1da

[Kuwer]

Hi Detlef,

Es schafft es die Antwort drei Minuten vor der Frage zu geben.

ja, faszinierend, wie es das macht.  :05:

Gruß Uwe

[IchBinIch]

Hallo zusammen,

auch wenn hier die Antworten vor der Frage gegeben werden... :32:
Eine VBA-Lösung von mir.

Ausgangssituation mangels weiterer Angaben:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B
1	Max	756
2	Peter	741
3	Hans	259
4	Horst	682
5	Gabi	829
6	Uschi	373
7	Erika	452
8	Franz	775
9	Peter	936
10	Max	262
11	Susi	569
12	Lilo	879
13	Markus	231
14	Jens	111
15	Gabi	235

Der Code für ein Modul:

Code:

Sub DatenZusammenFühren()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Treffer As Range
Dim ZeileFrei As Long

With Tabelle1
ZeileMax = .Cells(Rows.Count, 1).End(xlUp).Row

   For Zeile = 1 To ZeileMax
   
   Set Treffer = .Range("E:E").Find(.Range("A" & Zeile).Value, lookat:=xlWhole)
       If Treffer Is Nothing Then
            'Neuanlage
           ZeileFrei = .Cells(Rows.Count, 5).End(xlUp).Row + 1
           .Range("E" & ZeileFrei).Value = .Range("A" & Zeile).Value
           .Range("F" & ZeileFrei).Value = .Range("B" & Zeile).Value
       Else
           'Update
           Treffer.Offset(0, 1).Value = Treffer.Offset(0, 1).Value + .Range("B" & Zeile).Value
       End If
   
   Next Zeile

End With

End Sub

Ergebnis:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E	F
1	Max	756
2	Peter	741			Max	1018
3	Hans	259			Peter	1677
4	Horst	682			Hans	259
5	Gabi	829			Horst	682
6	Uschi	373			Gabi	1064
7	Erika	452			Uschi	373
8	Franz	775			Erika	452
9	Peter	936			Franz	775
10	Max	262			Susi	569
11	Susi	569			Lilo	879
12	Lilo	879			Markus	231
13	Markus	231			Jens	111
14	Jens	111
15	Gabi	235

Gruß
Ich

[schauan]

Hallöchen,

auch wenn hier die Antworten vor der Frage gegeben werden...

ich sag's ja, auf unser Forum kann man mächtig stolz sein. Aber wen wundert's, wir lesen unseren Frauen ja auch die Wünsche von den Augen ab, bevor sie selbige auf machen

Nein, Spaß beiseite. Die Frage kam zuerst als Umfrage und die erste Antwort kam auch dort. Durch die Änderung zu einem "normalen" Thread durch Neueröffnung und die Zusammenführung mit der Antwort lag dann die Threaderöffnung nach der ersten Antwort...

PS:
"Spaß beiseite" ? Das mit den Wünschen der Frauen ist doch kein Spaß, das ist das Leben. Außer, wenn wir vor'm Rechner sitzen und Excelfragen klären :21: Oder?