Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zwischensumme in Fußzeile

Gruppe

Zwischensumme

Problem

Wie kann ich die Summe in die Fußzeile übernehmen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Seitenumbruch()
   Dim varPB As Variant
   Dim iPage As Integer, iRowL As Integer
   Dim dSumA As Currency, dSumB As Currency
   iRowL = Cells(Rows.Count, 2).End(xlUp).Row
   iPage = 1
   Do Until IsError(varPB)
      varPB = ExecuteExcel4Macro( _
         "INDEX(GET.DOCUMENT(64)," & iPage & ")")
      If IsError(varPB) Then Exit Do
      dSumA = WorksheetFunction.Sum(Range( _
         Cells(1, 2), Cells(varPB - 1, 2)))
      With ActiveSheet.PageSetup
         .LeftHeader = "Zwischentotal:"
         .CenterHeader = Format(dSumB, "#,##0.00"" €""")
         .LeftFooter = "Zwischentotal:"
         .CenterFooter = Format(dSumA, "#,##0.00"" €""")
      End With
      ActiveSheet.PrintOut From:=iPage, To:=iPage
      dSumB = dSumA
      iPage = iPage + 1
   Loop
   dSumB = dSumA
   dSumA = WorksheetFunction.Sum(Range( _
      Cells(1, 2), Cells(iRowL, 2)))
   With ActiveSheet.PageSetup
      .LeftHeader = "Zwischentotal:"
      .CenterHeader = Format(dSumB, "#,##0.00"" €""")
      .LeftFooter = "Zwischentotal:"
      .CenterFooter = Format(dSumA, "#,##0.00"" €""")
   End With
   ActiveSheet.PrintOut From:=iPage, To:=iPage
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Druck und Zwischensumme