AW: Ausdrucken 2. Seite
15.03.2004 12:07:55
Abdi
Hallo Sabine,
das geht leider nicht so einfach in Excel. Hatte auch das Problem.
Mir wurde u.s. VBA-code zugesandt, den ich mir umgebastelt habe.
Gruß Abdi
Herbers Excel-CD-ROM
--------------------------------------------------------------------------------
Excel-CD-ROM Excel-Archiv-CD Excel-Tutorial Excel-Paket
Die Excel-VBA-Beispiele
Thema: Druck - Gruppe Umbruch Öffnen 165602 050199
Text-Index: 053799
Thema: Datei
Subject: Seitenumbruch ermitteln und Übertrag erstellen
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.
VBA-Code anzeigen 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