Seitenzahlen per VBA einfügen
24.10.2015 21:25:57
Tim
Hallo,
ich verwende folgenden Code zum Erzeugen einer Fußzeile per VBA, was soweit auch funktioniert.
Bisher habe ich hier nur die Begriffe "Seite" und "von" bzw. die jeweilige Übersetzung (je nach im Formular gewählter Sprache).
Kann mir jemand sagen, wie ich dazu noch die Seitenzahlen bekomme, so dass der Text am Ende z.B. Seite 1 von 2 lautet ?
Ich habe es mit &[Page] bzw. &[Pages] probiert, das hat aber nicht geklappt.
Mein Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim strFooterRight As String
strFooterRight = Worksheets(5).Range("G10").Value & Worksheets(5).Range("G11").Value
With ActiveSheet.PageSetup
.RightFooter = strFooterRight
End With
End Sub
Vielen Dank im Voraus.
Gruß,
Tim