hier das Makro
Sub AutoForm9_BeiKlick()
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
MfG Ralf