Gruppe
Druck
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?
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