AW: nur wenn du für jeden MA eine eigene PDF erst.
17.04.2018 10:30:02
Daniel
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.