das Makro macht die Teilergenisberechnung nur auf dem ersten Blatt und nicht auf allen, wie ich es eigentlich erwartet hätte. Hat mir da jemand einen Tip?
Vielen Dank
Steve
Sub Teilergebnis()
For Each Blatt In Sheets
With Blatt
Selection.Subtotal GroupBy:=3, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
.Cells.EntireColumn.AutoFit
End With
Next Blatt
End Sub