Beiträge zum Thread: Makro bis zum Dialogfeld "Speichern unter"

Sub PDFMitDialog()



    Dim Datei As Variant, Pfad As String, Vorgabe As String, TB As Worksheet

    Set TB = Sheets("Rechnung")

    Pfad = "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\"

    Vorgabe = "Name_Anpassen_" & Format(Date, "YYYY-MM-DD")

    

    Datei = Application.GetSaveAsFilename( _

        InitialFileName:=Pfad & Vorgabe & ".pdf", _

        FileFilter:="PDF Dateien (*.pdf), *.pdf")

    

    If Datei <> False Then

        TB.ExportAsFixedFormat _

            Type:=xlTypePDF, _

            Filename:=Datei

    End If



End Sub

Sub SaveAsPDF_WithDialog()

    Dim dPdf As FileDialog, targetFile$

    Dim Pfad$: Pfad = "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\"

    Set dPdf = Application.FileDialog(msoFileDialogSaveAs)

    With dPdf

        .Title = "PDF speichern unter..."

        .AllowMultiSelect = False

        .InitialFileName = ActiveSheet.Name & ".pdf"

        If .Show <> -1 Then Exit Sub

        targetFile = .SelectedItems(1)

    End With

    If LCase$(Right$(targetFile, 4)) <> ".pdf" Then

        targetFile = targetFile & ".pdf"

    End If

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad & targetFile, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub