Habe unter VBA ein Teilergebniss gebildet.
Selection.Subtotal GroupBy:=11, Function:=xlSum, TotalList:=Array(13, 16, _
20, 21, 22, 24, 28, 29, 35), Replace:=True, PageBreaks:=False, SummaryBelowData _
:=True
Leider wird die Spaltenüberschrift nicht automatisch erkannt und es ko...