Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon Akmon vom 14.02.2019, 12:49 Options

Seitenzahl einzelner Datenblätter

Hallo,

ich arbeite zur Zeit mit Excel.
Ich habe aber das Problem das ich nicht an die Seitenzahlen von einzelnen Tabellenblättern, in einer Arbeitsmappe mit mehreren Tabellenblätern drine, komme.

Ich hatte es mit

ExecuteExcel4Macro("Get.Document(50)")

versucht, Dies bringt mir aber nur die höchste Zahl von allen Tabellenblättern zurück, zb. das Tabelle1 1 Seite lang wäre in gedruckter Form, Tabelle2 2 Seiten und Tabelle3 3 Seiten lang. Dann gibt mir

ExecuteExcel4Macro("Get.Document(50)")

immer 3 zurück(die höchste Zahl also).

Hat jemand einen Befehl oder eine Methode die Tabellenblätterlänge einzeln abzuprüfen?

Gruß, Akmon

Antwort schreiben

Antwort 1 von coros vom 14.02.2019, 14:05 Options

Hallo Akmon,

nachfolgendes Makro fügt Dir in Spalte D in der letzten Zeile einer Seite die Seitenzahl ein. Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche oder über das Workbook_BeforePrint-Ereignis in "DieseArbeitsmappe"

[b]Option Explicit

Sub Seitenzahlen_in_Spalte_D()
Dim i As Integer, Zähler As Long
For i = 1 To ActiveSheet.HPageBreaks.Count
Zähler = Zähler + 1
Cells(ActiveSheet.HPageBreaks(i).Location.Row - 1, 4) = Zähler
Next
End Sub[/b]

Ich hoffe, Du kommst klar. bei Fragen melde Dich wieder.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken