wie kann ich denn per Makro eine Teilergebnisberechnung auf mehreren Blättern durchführen. Auf jedem Blatt soll nach Spalte C (Gruppe) unter Verwendung von Summe auf Spalte G (AK) eine Teilergebnisberechnung statt finden.
Vielen Dank schonmal
Steve
wie kann ich denn per Makro eine Teilergebnisberechnung auf mehreren Blättern durchführen. Auf jedem Blatt soll nach Spalte C (Gruppe) unter Verwendung von Summe auf Spalte G (AK) eine Teilergebnisberechnung statt finden.
Vielen Dank schonmal
Steve
zunächst würde ich in Tabelle1 nach Spalte C sortieren (Aufzeichnen mit dem Makrorecorder):
Range("C1").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dann die Teilergebnisse für Tabelle1:
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(2), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
(auch wieder mit Makrorecorder aufzeichnen).
Dann das Makro zusammenstellen:
Sub Teilergebnisse()
Sheets("Tabelle1").Select
Makro1
Makro2
Sheets("Tabelle2").Select
Makro1
Makro2
u.s.w.
end sub
Gruß
Jutta
Leider sind es jedoch eine variable Anzahl von Blättern (so ca. 60 bis 80 Stück).
Steve