Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Vor dem Drucken an den Seitenumbrüchen die Seitennummer eintragen
Gruppe
Umbruch
Problem
In den jeweiligen Zellen der horizontalen Seitenwechsel sollen die Seitenzahlen vor dem Drucken eingetragen und danach gelöscht werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
StandardModule: Modul1 Sub DruckSeiten() Dim iRow As Integer, iRowL As Integer, iPage As Integer iRowL = Cells(Rows.Count, 1).End(xlUp).Row ActiveSheet.PageSetup.PrintArea = Range("A1:B" & iRowL).Address Rows(iRowL).Select ActiveSheet.DisplayAutomaticPageBreaks = True Range("B1").Value = "Seite 1" For iPage = 1 To ActiveSheet.HPageBreaks.Count ActiveSheet.HPageBreaks(iPage) _ .Location.Offset(0, 1).Value = "Seite " & iPage + 1 Next iPage ActiveSheet.PrintPreview Columns("B").ClearContents Range("A1").Select End Sub