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

Aktuelle Seitenzahl anzeigen

Aktuelle Seitenzahl anzeigen
13.11.2002 14:06:46
Marco
Hi Leute,
wie kann man einer bestimmten Zelle "sagen" das sie die aktuelle Seitenzahl, in der sie sich im moment befindet, anzeigt?

Geht das?

Danke
Marco

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Aktuelle Seitenzahl anzeigen
13.11.2002 14:26:56
Hajo_Zi
Hallo Marco

hier mal ein Beitrag aus einem anderem Forum von Heute

"hi gib diesen code in ein modul ein und dann sollte es gehen! allerdings nur, wenn du nur eine seite breit bist und die seiten untereinander stehen

Sub seitenzahl()

spalte = ActiveCell.Column
zeile = ActiveCell.Row
ActiveSheet.PageSetup.PrintArea = "$A$1:$a$" & Trim(CStr(zeile))
seite = ActiveSheet.HPageBreaks.Count + 1
ActiveSheet.PageSetup.PrintArea = ""
seiten = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
Cells(zeile, spalte) = seite & " von " & seiten

end sub

gruß
harry"

ich hoffe es klappt

Gruß hajo

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige