Anzeige
Archiv - Navigation
1044to1048
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Seitenzählung in Fußzeile

Seitenzählung in Fußzeile
03.02.2009 13:30:14
Horst
Hallo,
ich hab mal wieder ein Problem, bei dem ich um eure mithilfe bitte.
Ich hab folgende Fußzeile in gebrauch:
ACTIVESHEET.PageSetup.RightFooter = "&""swis721 Cn BT,Standard""&11" & Chr(13) & _
ACTIVESHEET.Cells(10, 18).Value & Chr(13) & _
"erstellt: " & ACTIVESHEET.Cells(11, 18).Value & Chr(13) & _
ACTIVESHEET.Cells(12, 18).Value & Chr(13) & _
"Seite &P von " & ACTIVESHEET.Cells(36, 7).Value
Nun möchte ich gerne das bei der ersten Seitenangabe ich von &P eine Variable subtrahiere.
Ich weiß in der Form &P-Zahl funktioniert das, aber mit einer Variablen will das einfach nicht klappen.
Ich hab mir das in etwa so vorgestellt:
'subtrahend um bei gen neu zu Zählen für den Rest
Dim y As Integer
y = ACTIVESHEET.Cells(36, 7)
ACTIVESHEET.PageSetup.RightFooter = "&""swis721 Cn BT,Standard""&11" & Chr(13) & _
ACTIVESHEET.Cells(10, 18).Value & Chr(13) & _
"erstellt: " & ACTIVESHEET.Cells(11, 18).Value & Chr(13) & _
ACTIVESHEET.Cells(12, 18).Value & Chr(13) & _
"Seite &P-y von " & ACTIVESHEET.Cells(36, 7).Value
Leider funktioniert das nicht. auch wenn ich das ganze ohne "" schreibe funzt es nicht.
Hoffentlich hat jemand von euch eine Idee.
Vielen Dank schonmal im Vorraus,
euer Horst

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Seitenzählung in Fußzeile
03.02.2009 15:08:00
fcs
Hallo Horst,
damit es funktioniert muss du die Subtraktionsformel "zusmmenbasteln".
Gruß
Franz

Sub Test()
'subtrahend um bei gen neu zu Zählen für den Rest
Dim y As Integer
y = ActiveSheet.Cells(36, 7)
ActiveSheet.PageSetup.RightFooter = "&""swis721 Cn BT,Standard""&11" & Chr(13) & _
ActiveSheet.Cells(10, 18).Value & Chr(13) & _
"erstellt: " & ActiveSheet.Cells(11, 18).Value & Chr(13) & _
ActiveSheet.Cells(12, 18).Value & Chr(13) & _
"Seite &P-" & y & " von " & ActiveSheet.Cells(36, 7).Value
End Sub


Anzeige
AW: Seitenzählung in Fußzeile
03.02.2009 15:24:30
Horst
Hallo,
WOW Danke. Das funktioniert.
Ich hatte zwar die Idee auch aber irgendwas muss ich falsch gemacht haben das es einfach nicht klappen wollte. Also vielen vielen Dank für die schnelle Antwort
Grüße
Horst

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige