Makro bis zum Dialogfeld "Speichern unter"

Forumthread: Makro bis zum Dialogfeld "Speichern unter"

27.04.2026 12:43:56

Hans-Georg

Moin Leute,
da der erste Versuch kläglich gescheitert ist, möchte ich einen erneuten Anlauf starten.

Ich dachte mir, dass das Makro das Dialogfeld "Speichern unter" aufruft und ich nur noch den Speichernamen eingeben muss.
Dazu habe ich mit dem Recorder eine Aufzeichnung gemacht....

Nun geht es darum, das Makro entsprechend anzupassen. Ich habe schon einiges versucht, bin aber kläglich mit meinem Unwissen gescheitert.

Sub PDF_Speichern()
'
' PDF_Speichern Makro
'
Sheets("Rechnung").Select
ChDir "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\Name_Anpassen.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Ankauf-Verkauf").Select
Range("S11").Select
End Sub

Vielen Dank für eure Hilfe

Hans-Georg

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro bis zum Dialogfeld "Speichern unter"

27.04.2026 15:33:34

UweD
@UweD SUPER

27.04.2026 16:54:27

Hans-Georg
AW: Makro bis zum Dialogfeld "Speichern unter"

27.04.2026 16:54:19

Alwin Weisangler

AW: Makro bis zum Dialogfeld "Speichern unter"

27.04.2026 15:33:34

UweD

Hallo

Meinst du das so?

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

LG UweD

@UweD SUPER

27.04.2026 16:54:27

Hans-Georg

Hallo Uwe,
funktionier super !

Vielen Dank

AW: Makro bis zum Dialogfeld "Speichern unter"

27.04.2026 16:54:19

Alwin Weisangler

oder auch via .FileDialog so:



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

Gruß Uwe

Makro bis zum Dialogfeld "Speichern unter"

Forumthread: Makro bis zum Dialogfeld "Speichern unter"

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread