Seitenzahl auf Arbeitsblatt
Thomas Winter
ich habe ein kleines Problem:
Die aktuelle Seite soll nicht in Kopf- und/oder Fußzeile
erscheinen, sondern "irgendwo" auf dem Arbeitsblatt.
Leider habe ich noch keine Funktion gefunden, die mir
weiterhelfen würde.
Gibt es keine?
Wäre prima, wenn ihr einen Tipp für mich hättet.
Danke!
Thomas Winter
win...@osiag.de
Thomas Ramel
Thomas Winter schrieb:
>
> Hallo NG,
>
> Die aktuelle Seite soll nicht in Kopf- und/oder Fußzeile
> erscheinen, sondern "irgendwo" auf dem Arbeitsblatt.
>
> Leider habe ich noch keine Funktion gefunden, die mir
> weiterhelfen würde.
>
> Gibt es keine?
In Excel eingebaut, gibt es tatächlich keine solche Funktion.
Du kannst aber eine Benutzerdefiniert Funktion erstellen.
Der folgende Code basiert auf einer Anregung von Laurent Longre:
Public Function Seite()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer
If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
Seite = NumPage
End Function
Ich hoffe, dies hilft Dir einen Schritt weiter.
--
Mit freundlichen Grüssen
Thomas Ramel
- MVP für Microsoft-Excel -
Thomas Winter
danke Dir für die super schnelle Hilfe.
Habe die Funktion gerade eingebaut und sie macht
genau das was sie soll.
Gruß
Thomas
Thomas Ramel
Thomas Winter schrieb:
Es freut mich, wenn es so funktioniert wie Du wünschst.
Und Danke für die Rückmeldung.
Thomas Winter
ein kleiner Wermutstropfen, habe versucht die Funktion
in dem Wiederholungsteil zu verwenden. Das funktioniert
leider nicht.
Geht das überhaupt an der Stelle?
Danke für einen Tipp.
Thomas
Thomas Ramel
Thomas Winter schrieb:
>
> ein kleiner Wermutstropfen, habe versucht die Funktion
> in dem Wiederholungsteil zu verwenden. Das funktioniert
> leider nicht.
>
> Geht das überhaupt an der Stelle?
Mit 'Wiederholungsteil' meist Du die Wiederholungszeilen unter Datei -->
Seite einrichten?
Faktisch stehen diese Zeilen ja auf der ersten auszudruckenden Seite,
daher würde ich annehmen, dass jeweils '1' ausgegeben wird.
Hier kommt es wohl auf das Verfahren an, mit dem in Excel die
Wiederholungszeilen eingefügt werden. So wie es aussieht geschieht dies
'statisch', d.h. der Inhalt wird einfach übernommen ohne neu berechnet
zu werden.
So gesehen müsstest Du die Wiederholungen per VBA _vor_ dem Drucken
selbst einfügen. :-(
Aber vielleicht weiss sonst noch jemand Rat?