Variable Seite X von Y einfügen in Fußzeile?

Y · 2018-04-16T10:33:17+00:00

Hallo, ich habe eine Exceltabelle mit Dienstplänen, diese gebe ich in PDF aus. Hier möchte ich die Seitenanzahl drin haben aber nicht Seite X von gesamt sondern nur die für diese Person. Ich habe über Daten Teilergebnis quasi ein Seitenumbruch nach ID also immer wenn die ID sich ändern wird der Plan gedruckt .. es kann also Seite 1 von 1 oder Seite 1 von 5 sein je nachdem wie viele Dienst die ID hat. Kann mir hier jemand weiter helfen? vielen Dank Peter

Hallo Peter,
nachstehendes Makro erzeugt für jeden Mitarbeiter aus Spalte F eine eigene PDF in dem Verzeichnis, in der die Excel-Datei steht. Wenn die Tabelle mit der Fußzeile Seite &[Seite] von &[Seiten] formatiert ist, wird die Seitennummerierung in den PDF so angezeigt, wie von Dir gewünscht.

Sub DatenDrucken()
Dim lngZ As Long
Dim lngZBeginn As Long
Application.ScreenUpdating = False
'Seitenumbruch je Gruppe in Spalte A setzen
lngZBeginn = 31
For lngZ = 31 To Range("F" & Rows.Count).End(xlUp).Row 'ab Zeile 31
If Range("F" & lngZ)  Range("F" & lngZ + 1) Then
ActiveSheet.PageSetup.PrintArea = "A" & lngZBeginn & ":G" & lngZ
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" &  _
Range("F" & lngZ) & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
lngZBeginn = lngZ + 1
End If
Next
ActiveSheet.PageSetup.PrintArea = "A1:G" & lngZ - 1
Application.ScreenUpdating = True
MsgBox "Die PDF-Dateien sind erstellt!", vbInformation, "Makro beendet"
End Sub

Und anbei die Datei:
https://www.herber.de/bbs/user/121090.xlsm
Gruß
Robert

Hi
Vorlage gibt's nicht.
am einfachsten ist ein Makro, welches jeden Namen 1x mit dem Autofilter filtert und die Datei als PDF speichert:

Sub PDFerstellen()
Dim Zelle As Range
ActiveSheet.ResetAllPageBreaks
With Range("A30").CurrentRegion
Set Zelle = .Cells(2, 6)
.Sort key1:=Zelle, order1:=xlAscending, Header:=xlYes
Do While Zelle.Value  ""
.AutoFilter field:=Zelle.Column, Criteria1:=Zelle.Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\test\" & Format(Date, "YYYY-MM-DD_") & Zelle.Value & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Set Zelle = Zelle.Offset(WorksheetFunction.CountIf(.Columns(Zelle.Column), Zelle.Value), 0)
Loop
.AutoFilter
End With
End Sub

Gruß Daniel
den Speicherpfad bitte anpassen oder so wie im Code angezeigt anlegen.
Die PDF wird dort mit Datum und Namen gespeichert.

Variable Seite X von Y einfügen in Fußzeile?

Forumthread: Variable Seite X von Y einfügen in Fußzeile?

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Variable Seite X von Y einfügen in Fußzeile?

Forumthread: Variable Seite X von Y einfügen in Fußzeile?

20 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

20
Beiträge zum Forumthread

Beiträge zu diesem Forumthread