Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
428to432
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
428to432
428to432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Seitenzahl per VBA einfügen

Seitenzahl per VBA einfügen
21.05.2004 08:29:21
Stefan
Hallo Excelfreunde,
gehört Ihr auch zu dem erlauchten Kreis, der heute arbeiten darf ?
Vielleicht könnt Ihr mir bei einer Sache behilflich sein:
Ich möchte gern die Anzahl der Seiten per VBA in eine Zelle eintragen lassen (Seite 1/2). Hat jemand eine Idee, wie ich das schreiben muß ?
Vielen Dank und einen kurzen Freitag
Stefan K.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzahl per VBA einfügen
Joachim
Hallo Stefan,
folgenden Code habe ich in dem Beispielarbeitsmappen gefunden.

Sub DruckSeiten()
Dim iRow As Integer, iRowL As Integer, iPage As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address
Rows(iRowL).Select
ActiveSheet.DisplayAutomaticPageBreaks = True
Range("B1").Value = "Seite 1"
For iPage = 1 To ActiveSheet.HPageBreaks.Count
ActiveSheet.HPageBreaks(iPage) _
.Location.Offset(0, 1).Value = "Seite " & iPage + 1
Next iPage
ActiveSheet.PrintPreview
Columns("B").ClearContents
Range("A1").Select
End Sub

Gruß ... Joachim
Anzeige
AW: Seitenzahl per VBA einfügen
21.05.2004 10:31:26
Stefan
Danke Joachim,
werde ich gleich mal ausprobieren...
AW: Seitenzahl per VBA einfügen
21.05.2004 11:38:09
Piep
Hi, ok, werd mein Glück versuchen. Vieleicht hilft es ja.
Gruß und ein schönes WE

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige