Office: Zeilen Gruppieren mit Summe

Hi,

ich habe in einer Tabelle die Spalten
Kostenstelle
Datum
Anzahl

Nun würde ich gerne per VBA alle gleichen Werte in der Spalte Kostenstelle gruppieren und nach der letzten Zeile in der jeweiligen Gruppierung in der Spalte Anzahl die Summe bilden.

Ich habe mal eine Datei angehängt, um es zu veranschaulichen.

Wäre für Hilfe super dankbar

Gruß Ingo

:)

 

Hallo Ingo,
dazu brauchst Du kein VBA.

Sortiere die Spalten in der gew. Reihenfolge und kopiere in die Spalte E

PHP:

         =WENN(B5<>B6;SUMME(D3:D5);"")


 

Hi,
Danke für deine Antwort,
mir wäre es aber schon als VBA lieb, da es mehrere Tabellen sind mit unterschiedlicher Datenmenge und dazu noch von anderen Personen betreut werden.

 

Moin Ingo,

wie wäre es denn mit einer PIVOT-Tabelle? Schau mal hier:
Tabelle1

	B	C	D
17	Kostenstelle	Datum	Ergebnis
18	1000	01. Jul	50
19		02. Jul	24
20		03. Jul	41
21	1000 Ergebnis		115
22	2000	01. Jul	450
23		02. Jul	44
24	2000 Ergebnis		494
25	3000	01. Jul	24
26		02. Jul	10
27	3000 Ergebnis		34

Excel Tabellen im Web darstellen >>

 

Danke auch für den Tipp,
hätte aber gerne eine VBA Lösung wenn das nicht zu unverschämt ist.

Vielen Dank

 

Hallo Ingo,
ein Problem habe ich bei einer VBA Lösung. Wenn man es so wie von Dir vorgegeben realisieren will und durch einfügen einer Zeile die Summe schreibt (Spalte D) darf man das Makro nur einmal laufen lassen sonst kommt er beim sortieren später durcheinander. Besser wäre die Summe in Spalte E zu schreiben.
Könntest Du damit leben?*tongue.gif*

 

Und wie ich damit leben könnte ^^

 

Hallo Ingo,
hier eine Lösung mit VBA, wie gewünscht. Die Überschriften müssen vorhanden sein und die Spalten sind A-E, ansonsten musst Du anpassen.
Viel Erfolg.

 

Moin Ingo,

versuch es mal so:

Code:

 

Hi

VBA würde ich echt nicht verwenden........
Ich selber habe dafür schon zig Vorlagen erzeugt, indem der Datenbereich als Liste/Tabelle definiert ist.
In diesen Bereich werden einfach die Daten eingetragen, hineinkopiert oder importiert.

Auf einem zweiten Blatt ist die Auswertung über Pivot inkl. der dafür benötigten Diagramme schon vorgefertigt und die Anwender müssen dann nur mehr die Schaltfläche aktualisieren betätigen.....
ganz ohne VBA.

Aber hier mal ein Code

Code:

 

Vielen Dank für eure vielfältigen Hilfen.
Die haben alle gut funktioniert, aber meinen 99% Wunschcode habe ich in einem anderen Forum gefunden.

Hab ihn mal gepostet falls ihn jemand benötigt:

Code:

Bei meiner Aussage zu 99%, könnt ihr euch vielleicht denken, dass ich nochmals eure Hilfe brauche.
Wo und wie bestimmt man in diesem Code z.B das er nicht die gesamte Spalte auswählt um die Summe zu berechnen, sondern das dieser Bereich erst ab Zeile 7 anfängt?

Vielen Dank

Gruß Ingo

 

Hallo Ingo,

statt:
Code:

folgende Zeile:
Code:

Gruß Ingolf

 

folgende Zeile:
Code:

Gruß Ingolf

SUPI Vielen Dank,
Jetzt ists zu 99,9% erfüllt ^^
Hab nur Probleme damit wie ich jede Summe fett darstelle.
Bis jetzt schaffe ich nur die 1. Summe.
Kann mir da noch jemand ne Hilfestellung geben?
Danach können wir das Thema als erledigt abhaken
Vielen Dank

 

Hi

'..........
rngA.Offset(rngA.Rows.Count, 0).Resize(1, 1).Formula = _
"=SUM(" & rngA.Address(0, 0) & ")"
rngA.Offset(rngA.Rows.Count, 0).Resize(1, 1).Font.Bold = True
'.............

 

Hat super geklappt !
Vielen Dank an alle Helfer