Frage zu "Teilergebnisse"
19.12.2004 00:51:07
Fritz
Ich habe das folgene Makro per recorder aufgenommen. Statt selection vor subtotal habe ich "UsedRange" verwendet.
Sub Uebersicht()
Sheets("Daten").UsedRange.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(10, 11, 14 _
, 15, 16, 17), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
ActiveSheet.Outline.ShowLevels RowLevels:=2
Range("A1").Select
End Sub
In der Spalte 2 stehen die Namen, nach denen zusammengefasst werden soll. Das tut es aber nicht. mehrfach vorkommende Namen kommen öfter vor. Eben fällt mir ein: vielleicht sollte ich vorher sortieren?
Das Makro wird über einen commandbutton aufgerufen. Über einen anderen cmdbutton setze ich dann wieder zurück:
Sheets("Daten").UsedRange.RemoveSubtotal
Was is'n da faul?
Danke schon mal.
Fritz