'einfügen unter "Diese Arbeitsmappe"
'alternativ auch als Modul, dieses mit einem Button verknüpfen
Private Sub Workbook_BeforeClose()
'sorgt dafür, dass ein bestimmter Bereich als PDF unter vorgegebenen Namen gespeichert wird
Dim Datei As String
Datei = "Bestellung_" & Format(Date, "DD.MM.YYYY") & ".pdf" 'Bestellung_Tagesdatum.pdf - _
> Text anpassen
'Datei = ThisWorkbook.Sheets("Tabelle1").Range("G2") & ".pdf" 'diese Zeile, wenn _
Dateiname aus Zelle stammt, Zelle anpassen
ActiveSheet.Range("B4:G151").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Datei, Quality:= _
xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True ' _
Bereich anpassen, der gespeichert werden soll
' _
OpenAfter...Datei öffnen oder nicht? Anpassen
' _
ActiveSheet = aktives Blatt; Sheets("Tabelle1") = bestimmtes Blatt
End Sub
Sub test()
If MsgBox("Datei als PDF speichern?", vbYesNo) = vbYes Then
Dateiname = InputBox("Bitte Dateinamen eingeben!")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Test\" & Dateiname, Quality:=xlQualityStandard, IncludeDocProperties _
:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
End If
End Sub
ChDrive "C" 'Laufwerk anpassen
ChDir "C:\wasweißich\" 'Ordner anpassen