Excel 2007 Seitenzahl in einzelner Zelle
Andreas Rieger
In einer Tabelle habe ich in der Kopfzeile eine
Seitennumerierung mit "Blatt &[Seite]".
Die hier eingetragene Seitenzahl soll in einer Zelle auf
derselben Seite den dort eingetragenen Text
"Summe Blatt XX" erg�nzen.
Der Eintrag -wie oben- an der vorgesehenen Textstelle
ergibt jedoch nicht das gew�nschte Ergebnis.
Wie bekomme ich es hin, dass zum Beispiel auf Blatt 3 in der
Zelle C31 -�brigens auf allen Seiten gleich-
der Text steht "Summe Blatt 3" ?
Danke
Gru�
(o: andreas
Peter Schleif
>
> In einer Tabelle habe ich in der Kopfzeile eine
> Seitennumerierung mit "Blatt &[Seite]".
> Die hier eingetragene Seitenzahl soll in einer Zelle auf
> derselben Seite den dort eingetragenen Text
Das geht nur mit VBA. Kopiere dazu die unten stehende Funktion in ein
normales Modul deines Projekts. In der Tabelle kannst Du die Funktion
dann z.B. so benutzen:
="Summe Blatt " & Seitenzahl()
Peter
Public Function Seitenzahl() As Integer
Dim vbreak As VPageBreak
Dim hbreak As HPageBreak
Seitenzahl = 1
With Application.Caller.Parent
For Each vbreak In .VPageBreaks
If vbreak.Location.Column<=Application.Caller.Column Then
Seitenzahl = Seitenzahl + IIf(.PageSetup.Order _
= xlDownThenOver, .HPageBreaks.Count + 1, 1)
End If
Next
For Each hbreak In .HPageBreaks
If hbreak.Location.Row <= Application.Caller.Row Then
Seitenzahl = Seitenzahl + IIf(.PageSetup.Order _
= xlDownThenOver, 1, .VPageBreaks.Count + 1)
End If
Next
End With
End Function
Andreas Rieger
Peter wrote:
...
> Das geht nur mit VBA.
Das habe ich mir fast schon gedacht; habe aber davon absolut keine
Ahnung.
> Kopiere dazu die unten stehende Funktion in ein normales Modul deines
> Projekts. In der Tabelle kannst Du die Funktion dann z.B. so benutzen:
>
> ="Summe Blatt " & Seitenzahl()
Ich werde versuche es hinzubekommen. Melde mich ggf. noch einmal
Gruß
(o: andreas