Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

letzten Zeilen der letzten Seite befüllen

letzten Zeilen der letzten Seite befüllen
08.09.2016 11:33:26
Richard
Hallo liebe Excel-VAB-Gemeinde,
ich muss auf der letzten Seite eines über Excel erzeugten und in der Zeilenanzahl variablen Dokuments auf der letzten Seite ganz unten einen Text Einfügen. Da dieser auch zu umfangreich für eine Fußzeile ist, bleibt diese Möglichkeit aus.
Kann man an Makro schreiben, welches die letzte zu druckende Seite ermittelt und es möglich mach die z.B. letzten 3 Zeilen bevor der nächste Zeilenumbruch erfolgen würde zu befüllen?
Vielen Dank vorab und lG
Richard

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzten Zeilen der letzten Seite befüllen
08.09.2016 12:51:28
Rudi
Hallo,
als Ansatz:
Sub aaa()
Dim iCount As Integer
Const iAnz As Integer = 63  'max. Zeilen je Seite
iCount = Sheets(1).HPageBreaks.Count + 1
Cells(iCount * iAnz - 2, 1) = "erster Text"
Cells(iCount * iAnz - 1, 1) = "zweiter Text"
Cells(iCount * iAnz - 0, 1) = "dritter Text"
End Sub
Gruß
Rudi
AW: letzten Zeilen der letzten Seite befüllen
08.09.2016 14:21:12
Richard
Hallo Rudi,
funktioniert. Danke für die Schnelle Hilfe!!!
Richard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige