Excel / Seitennummer nicht in Kopfzeile!?

Hallo zusammen

Ich wollte wissen, ob es möglich ist (möglichst einfach), die Seitennummer anstelle in der Kopfzeile jeweils in der Tabelle selbst zu machen. Die Tabelle enthält Wiederholungszeilen (da sollte auch die Seitenzahl hinein).

Der Grund dafür ist, dass eine Kopfzeile nur links, zentriert und rechts angeordnet werden kann. (Mein Tabellekopf (Wiederholungszeilen) passt nicht in dieses Schema.)

Natürlich könnte ich die Kopfzeile so anpassen, dass die Seitennummer auf der richtigen Höhe ist. Die horizontale Ausrichtung kann aber nicht eingestellt werden (oder irre ich mich?).

Hat jemand schon einmal so etwas gemacht/geschafft?

Gruss
Bruno


PS: Bisher habe ich die Tabellentitel manuell an den Anfang jeder Seite kopiert bzw. habe ich es trotzdem via die Kopfzeile gemacht (die Position war aber ziemlich ungenau)...

 

Hi brum,

ich weiß zwar nicht genau was du machen willst, aber evtl. könnte dir folgendes Makro helfen. Bedingung ist dabei, dass alle Seiten untereinander angeordnet sind

Code:

Sub Seitenzahlen_Druckseiten()
    '*******************
    ' Von Herbert Grom - Ermittlung der Druckseitenanzahl
    Dim i As Integer
    i = ExecuteExcel4Macro("Get.Document(50)")
    '*******************
    Dim loSeite As Long
    With ActiveSheet
        For loSeite = 1 To i
            On Error Resume Next
            If loSeite = 1 Then
                .Cells(Range(.PageSetup.PrintTitleRows).Row, 7) = "Seite " & _
                    .PageSetup.FirstPageNumber
            Else
                Cells(Range(.PageSetup.PrintTitleRows).Row, 7).Select
                    .Cells(.HPageBreaks(loSeite - 1).Location.Row + _
                        Range(.PageSetup.PrintTitleRows).Row - 1, 7) = "Seite " & _
                            .PageSetup.FirstPageNumber - 1 + loSeite
            End If
        Next loSeite
    End With
End Sub

Die Spalte (7 = G) musst du anpassen

 

Hallo Beverly

Ja, Makros sind eine schöne Sache. Ich mache auch ziemlich viele Sachen damit... Das mit dem Seitenzahl erruieren kannte ich noch nicht: ExecuteExcel4Macro("Get.Document(50)").

Aber eigentlich möchte ich nicht in jeder meiner Tabellen ein Maktro haben (ist fürs Geschäft).

Danke trotzdem.

Gruss
Bruno

 

Hi Bruno,

du musst das Makro nicht in jeder Arbeitsmappe haben. Speichere es in der Personl.xls, dann steht es dir jederzeit zur Verfügung.

 

Hallo Beverly

Natürlich kenne ich die Personl.xls. Eigentlich meinte ich IRGEND ein Makro pro Excel-Datei...

Dein Makro müsste aber wie folgt abgeändert werden:

- Das Makro sollte als "Drucken" verwendet werden, da die Titel nicht gespeichert werden sollen.
- Es kann keine For-Next-Schleife verwendet werden: Es braucht eine While-Wend-Schleife, da sich die Seitenzahl ja noch verändern könnte.

Mal schauen, ob ich jetzt doch ein Makro mache...

Gruss
Bruno

 

Hi Bruno,

In dem Makro brauchst du nur noch vor End Sub ergänzen ActiveSheet.PrintOut, dann kannst du es auch zum "Drucken" verwenden.

Die While...Wend-Anweisung macht auch nichts anderes als eine For...Next-Schleife - sie zählt mit einem Zähler bis eine bestimmte Bedingung erfüllt ist. Und was hat das mit der Seitenanzahl zu tun? In meinem Beispiel werden alle Druckseiten durchnummeriert, angefangen mit der über Seite -> Einrichten eingestellten Nummer der ersten Seite.

Noch einen Tipp: ich würde die Seitenzahl nicht in die Wiederholungszeile schreiben, sondern z.B. in die nächste Zeile darunter, weil sonst die Seitennummer der ersten Seite auf jeder Seite wiederholt wird...