Guten Morgen.
Ich habe folgenden Code (per Makro aufgezeichnet und funktioniert sehr gut):
Private Sub CommandButton4_Click()
Sheets("Betrag").Select
Worksheets("Betrag").Cells.Select
Selection.Subtotal GroupBy:=1, Function:=xlSum, TotalList:=Array(7), _
Replace:=True, PageBreaks:=True, SummaryBelowData:=True
End Sub
Hierbei wird per Teilergebnis sortiert und summiert.
Ich hätte jetzt aber gerne, dass die Teilergebnisse sowie das Endergebnis als fett dargestellt werden und zwar die ganze Zeile.
Hat da jemand ne Lösung?
Danke
Gruß
Tutti
|