Seitenumbrüche außer der letzten Seite
18.01.2021 10:16:08
Timo
ich würde mich freuen, wenn ihr mir helfen könntet. Mit dem folgenden Code wird an den Stellen der Seitenumbrüche je 3 Leerzeilen eingefügt und die Worte Zwischensumme und Übertrag werden vor und nach dem Seitemumbruch ergänzt.
Das soll allerdings nicht beim letzten Seitenumbruch, also nicht auf der letzten Seite geschehen, habt ihr einen Tipp für mich was ich ergänzen oder ändern müsste?
Ich danke euch.
VG Timo
Option Explicit
Sub Seitenumbruch()
Application.EnableEvents = False
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 - 2, 1).Select
ActiveCell.EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Cells(varPB - 1, 1).Select
ActiveCell.Value = "Zwischensumme:"
Cells(ActiveCell.Row, 1).Select
ActiveCell.Value = "Übertrag:"
End If
iPage = iPage + 1
Loop
Application.EnableEvents = True
End Sub