Office: mehrere Blätter zusammen rechnen

Hallo,

ich habe eine Problem mit meinem Excel Liste.

Also, ich habe eine Monatsliste(01-31Tage Blätter) in dem kommen verschiedene Abteilungen vor(A1:A1000); wo Sie mit Tagesverbrauch(B1:B1000) aufgelistet werden.
Ich will es am ende der Monat auf eine Seite(Gesamt) aufsteigend sortieren und zu gleich die Gesamtsumme alle Tage; in dem der Abteilung vorkommt zusammen berechnen.
Wie gesagt die Abteilungen kommen nicht immer gleich vor, es können auch verschiedene Abteilungen an mehreren tagen vorkommen.

Ich habe eine Excel-Liste(Abteilung_Tages_Verbrauch_zaehlen.xls) erstellt, die möchte ich Euch gerne zur Verfügung stellen.
Ich würde mich sehr freuen wenn eine oder Andere von Euch eine Lösung für mich hätte.

Ich bedanke mich jetzt schon mal für Eure Hilfe.

Wünsche noch eine Schöne Tag.

Grüße aus Bayern
sboarder



PS: ich benutze zur Zeit Ofiice 97 Professional(Original Vers.) incl. Service Pack 2

 

Hallo!

Ich habe mit meinen spärlichen VBA-Kenntnissen diesen Code gebastelt.
Echte Profis werden wahrscheinlich die Hände über'm Kopf zusammenschlagen, aber er scheint deine Wünsche zu erfüllen.

Code:

Sub Zusammenfassen()
Dim Blatt As Worksheet
Dim i As Integer
Application.ScreenUpdating = False
For Each Blatt In ThisWorkbook.Worksheets
If Blatt.Name <> "Gesamt" Then
Blatt.UsedRange.Offset(1, 0).Resize(Blatt.UsedRange.Rows.Count - 1).Copy
Sheets("Gesamt").Cells(Sheets("Gesamt").Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues
End If
Next Blatt
With Sheets("Gesamt")
For i = 2 To .Range("A65536").End(xlUp).Row
.Cells(i, 3) = Application.WorksheetFunction.SumIf(.Range("A2:A65536"), .Cells(i, 1), .Range("B2:B65536"))
Next i
.Range("C2:C65536").Cut Destination:=.Range("B2:B65536")
.UsedRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C1"), Unique:=True
.Range("C1:D65536").Cut Destination:=.Range("A1:B65536")
.UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
.UsedRange.Columns.AutoFit
Application.CutCopyMode = False
.Range("A2").Select
End With
Application.ScreenUpdating = True
End Sub

 

Doppelte Berechnung beim Benutzung

Hallo schatzi,

erst einmal vielen dank, für deine Lösungs vorschlag.

Ich habe es gleich eingebaut und festgestellt das es beim -wie in meinem test; siehe Anhang- eine doppelte Berechnung gestartet wird.

Gibt es die Möglichkeit, das die Berechnung schon bei der Eingabe durchgeführt wird?

Wünsche noch eine schöne Wochen Ende


viele Grüsse
sboarder

 

Hallo!

Dann teste mal dies.
Der Code steckt jetzt direkt im Blatt "Gesamt".
Er wird allerdings nicht bei jeder Eingabe ausgeführt, denn das halte ich für übertrieben (weil zu rechenintensiv). Es reicht ja völlig, wenn er ausgeführt wird, wenn das Blatt "Gesamt" aktiviert wird.

 

ja suppi...

Hallo schatzi,

genau das ist es, dankeschön

Grüsse
sboarder