Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Seitenumbruch ermitteln und Übertrag erstellen

Gruppe

Umbruch

Problem

Wie kann ich in einer längeren Liste den Seitenumbruch ermitteln und in der Zelle rechts neben der Wertezelle in der letzten Zeile einen Übertrag eintragen lassen?

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
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   iPage = 1
   Do While IsError(varPB) = False
      varPB = ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64)," & iPage & ")")
      If IsError(varPB) Then
         Exit Sub
      Else
         Cells(varPB - 1, 2) = Application.Sum(Range(Cells(1, 1), _
            Cells(varPB - 1, 1)))
      End If
      iPage = iPage + 1
      Cells(iRowL, 2) = Application.Sum(Range(Cells(1, 1), Cells(iRowL, 1)))
   Loop
End Sub