Excel 2007 Seitenzahl in einzelner Zelle

29/04/2010 - 02:05 von Andreas Rieger | Report spam
Hallo NG,
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
 

Lesen sie die antworten

#1 Peter Schleif
29/04/2010 - 06:04 | Warnen spam
Andreas Rieger schrieb am 29.04.2010 02:05 Uhr:

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.



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

Ähnliche fragen