Seitennummerierung über mehrere Arbeitsmappen.

Hallo Excel-Freunde,
ich habe folgendes Problem:
Eine Excel-Arbeitsmappe beinhaltet n Arbeitsblätter. Jedes dieser Arbeitsblätter kann mehrere horizontale Seitenümbrüche = mehrere Seiten enthalten.
Ich muss nun diese Seiten fortlaufend nummerieren, angefangen mit Tabellenblatt 1 oben bis zum letzten Tabellenblatt unten. Die Seitenzahlen sollen im Format "Seite X von N" in bestimmten Zellen im jeweiligen Blatt stehen, wobei der Abstand der horizontalen Seitenumbrüche immer 25 Zeilen beträgt ( das heißt, wenn z.B. Arbeitsblatt 1 aus 3 Seiten besteht sollen sich die Seitenzahlen auf S35, S60, S85 befinden)
Die Lösung über die Fußzeile funktioniert nicht, da (a) die Seitenzahl eine ganz bestimmte Position auf dem Blatt haben muss und diese sich bei unterschiedlichen Druckern verschiebt und (b) die Fußzeile bereits anderweitig verwendet wird.
Kann mir irgend jemand hier eine Hilfestellung geben? Ich hoffe, dass meine Problembeschreibung verständlich ist.
Viele Grüße
Reiner Klein

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Public Sub Seitenzahlen() Dim intSeitenTotal As Integer Dim intSeitenLaufend As Integer Dim ws As Worksheet Dim i As Integer For Each ws In ActiveWorkbook.Worksheets intSeitenTotal = intSeitenTotal + ws.HPageBreaks.Count Next For Each ws In ActiveWorkbook.Worksheets For i = 1 To ws.HPageBreaks.Count intSeitenLaufend = intSeitenLaufend + 1 ws.Cells(35 + ((i - 1) * 25), 19).Value = "Seite " & intSeitenLaufend & " von " & _ intSeitenTotal Next Next End Sub

Hallo und vielen Dank für die schnelle Antwort!
Grundsätzlich funktioniert dieses Programm, mit nur einem Haken:
Falls ein Arbeitsblatt nur eine Seite hat, wird dieses übersprungen. Ich glaube das liegt daran das in diesem Fall HPageBreaks ein 0 zurückgibt (weil ja kein Seitenumbruch vorhanden ist). Dass das Programm die richtige Seitenzahl ermittelt habe ich hingekriegt (siehe unten), leider schreibt es mir in die Blätter mit nur eine Seite die Seitenanzahl nicht rein. Hast du eine Lösung dafür?
Gruß
Reiner

Public Sub Seitenzahlen()
Dim intSeitenTotal As Integer
Dim intSeitenLaufend As Integer
Dim ws As Worksheet
Dim i As Integer
Dim x As Integer
For Each ws In ActiveWorkbook.Worksheets
    If ws.HPageBreaks.Count = 0 Then x = 1 Else x = 0
intSeitenTotal = intSeitenTotal + ws.HPageBreaks.Count + x
Next
For Each ws In ActiveWorkbook.Worksheets
For i = 1 To ws.HPageBreaks.Count
intSeitenLaufend = intSeitenLaufend + 1
ws.Cells(35 + ((i - 1) * 25), 19).Value = "Seite " & intSeitenLaufend & " von " & _
intSeitenTotal
Next
Next
End Sub

Public Sub Seitenzahlen() Dim intSeitenTotal As Integer Dim intSeitenLaufend As Integer Dim ws As Worksheet Dim i As Integer For Each ws In ActiveWorkbook.Worksheets intSeitenTotal = intSeitenTotal + ws.HPageBreaks.Count + ((ws.HPageBreaks.Count = 0) * - _ 1) Next For Each ws In ActiveWorkbook.Worksheets If ws.HPageBreaks.Count = 0 Then intSeitenLaufend = intSeitenLaufend + 1 ws.Cells(35, 19).Value = "Seite " & intSeitenLaufend & " von " & intSeitenTotal Else For i = 1 To ws.HPageBreaks.Count intSeitenLaufend = intSeitenLaufend + 1 ws.Cells(35 + ((i - 1) * 25), 19).Value = "Seite " & intSeitenLaufend & " von " _ & intSeitenTotal Next End If Next End Sub

Beliebteste Forumthreads (12 Monate)

Seitennummerierung über mehrere Arbeitsmappen.

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Seitennummerierung über mehrere Arbeitsmappen.

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread