4 stellige Nummer
08.11.2022 09:56:00
nightcab
Mit diesem Makro kann ich PDF´s anlegen.
Sub pdf()
Dim pdfDateiName As String
Dim pdfName As Variant
pdfDateiName = ActiveSheet.Range("H2") & "Nr._" & Range("E17").Value & ".pdf"
pdfName = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:="PDF files, *.pdf", Title:="PDF speichern")
If pdfName False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfDateiName, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Master").Select
Else
Exit Sub
End If
End Sub
Nr._1.pdf
Nr._2.pdf
Nr._100.pdf
Nr._1003.pdf
Nun habe ich mein System auf 4 stellig umgestellt.
Nr._0001.pdf
Nr._0002.pdf
Nr._0100.pdf
Nr._1003.pdf
Was muss ich an dieser Zeile ändern...
pdfDateiName = ActiveSheet.Range("H2") & "Nr._" & Range("E17").Value & ".pdf"
Bitte um Eure geschätzte Hilfe.
lg nightcab