ich würde gerne wissen, wie ich in Excel eine Seitenzahl in die Fusszeile bekomme also Seite X von Y über mehrere Sheets!
Also das erste Tabellenblatt hat immer eine Seite! Das zweite Tabellenblatt hat dann 2 bis x!
Gruß
Sheets(Array("Tag_Ber", "Zeiten")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Pfad & SpeicherName & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
Gruß
Sub Seitenzahlen()
'Ermittelt die Gesamtseitenzahl und trägt unter Seiteeinrichten für jedes Blatt _
die Startseitenzahl ein und passt die Fusszeile an
Dim Startseite() As Integer, Seitengesamt As Integer
'Seitenzahlen ermitteln
ReDim Startseite(1 To ActiveWorkbook.Worksheets.Count)
For i = 1 To ActiveWorkbook.Worksheets.Count
Startseite(i) = Seitengesamt + 1
Seitengesamt = Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1
Next i
'Seiteneinrichtung anpassen
For i = 1 To ActiveWorkbook.Worksheets.Count
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i) 'Startseite setzen
.CenterFooter = "Seite &P von " & Seitengesamt ' Fusszeile anpassen
End With
Next i
End Sub
würde das aber gerne auf die ersten beiden Worksheets beschränken!
Sub Seitenzahlen()
Dim i As Integer
Dim Startseite() As Integer
Dim Seitengesamt As Integer
'Seitenzahlen ermitteln
ReDim Startseite(1 To 2)
For i = 1 To 2
Startseite(i) = Seitengesamt + 1
Seitengesamt = Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1
Next i
'Seiteneinrichtung anpassen
For i = 1 To 2
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i) 'Startseite setzen
.LeftFooter = "&""Arial,Standard""&12© 2015"
.RightFooter = " Seite &P von " & Seitengesamt ' Fusszeile anpassen
End With
Next i
End Sub
Um eine Seitenzahl über mehrere Tabellenblätter in Excel einzufügen, gehe wie folgt vor:
Tabellenblätter auswählen: Halte die STRG
-Taste gedrückt und klicke auf die Reiter der gewünschten Tabellenblätter, um sie auszuwählen.
Seiteneinrichtung öffnen: Klicke im Menü auf Seitenlayout und dann auf Seite einrichten.
Fußzeile anpassen: Wähle den Reiter Kopfzeile/Fußzeile und klicke auf Benutzerdefiniert. Hier kannst du das Format für die Seitenzahl festlegen, z.B. Seite &P von &N
, um eine Darstellung wie „Seite 1 von 2“ zu erhalten.
Drucken: Wenn du nun die Tabellenblätter druckst, werden sie als ein Dokument mit fortlaufenden Seitenzahlen ausgegeben.
Problem: Seitenzahlen erscheinen nicht korrekt.
Problem: Seitenzahlen werden nicht fortlaufend angezeigt.
Eine alternative Methode zur Einfügung von Seitenzahlen ist die Verwendung von VBA. Hier ein einfaches Skript, das du nutzen kannst:
Sub Seitenzahlen()
Dim i As Integer
Dim Startseite() As Integer
Dim Seitengesamt As Integer
' Seitenzahlen ermitteln
ReDim Startseite(1 To ActiveWorkbook.Worksheets.Count)
For i = 1 To ActiveWorkbook.Worksheets.Count
Startseite(i) = Seitengesamt + 1
Seitengesamt = Seitengesamt + ActiveWorkbook.Worksheets(i).HPageBreaks.Count + 1
Next i
' Seiteneinrichtung anpassen
For i = 1 To ActiveWorkbook.Worksheets.Count
With ActiveWorkbook.Worksheets(i).PageSetup
.FirstPageNumber = Startseite(i) ' Startseite setzen
.CenterFooter = "Seite &P von " & Seitengesamt ' Fußzeile anpassen
End With
Next i
End Sub
Dieses Skript fügt fortlaufende Seitenzahlen in die Fußzeilen aller Tabellenblätter ein.
Wenn du ein Inhaltsverzeichnis mit Seitenzahlen erstellen möchtest, kannst du die oben genannten Schritte befolgen. Dies ist besonders nützlich, wenn du mehrere Tabellenblätter hast und auf bestimmte Seiten verweisen möchtest.
Beispiel für die Fußzeile:
Überlege, ob du die Fußzeile für alle Blätter übernehmen möchtest. Wenn ja, stelle die Fußzeile einmal ein und verwende die Funktion „Für alle Blätter übernehmen“ in der Seiteneinrichtung.
Nutze die VBA-Option, um komplexere Anforderungen zu erfüllen, wie z.B. die Anpassung der Seitenzahlen für spezifische Tabellenblätter.
1. Wie füge ich Seitenzahlen über mehrere Tabellenblätter ein?
Du kannst dies über die Seiteneinrichtung in Excel oder durch ein VBA-Skript tun, um die Seitenzahlen automatisch zu generieren.
2. Warum werden meine Seitenzahlen nicht korrekt angezeigt?
Stelle sicher, dass die Fußzeile für jedes Blatt korrekt eingestellt ist und dass du alle Blätter markiert hast, bevor du druckst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen