VBA Excel Seite als PDF speichern

Hallo Claus,
<br />erstmal vielen Dank ,ich habe von Andreas (Freiwilliger Moderator) den u.a. Hinweis bekommen, dass bei MAC die Verzeichnisse anders benannt sind. Das habe ich nicht gewusst. Ich habe meine Anfrage daraufhin nochmal verändert. Vielleicht kannst Du ja auch helfen s.u. Nachricht an Andreas
<br />viele Grüße
<br />Andreas
<br />

Hallo Andreas,
<br />Danke für den Hinweis. Da hast Du recht mit dem Verzeichnis. Wäre ich selber aber nie draufgekommen.
<br />Ich habe jetzt folgende Code benutzt, den ich aber aufgezeichnet habe. Er funktioniert auch einwandfrei.
<br /> Sub PDFSpeichern()
<br />' ' PDFspeichern Makro
<br /> Range("C1:R28").Select
<br /> ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "/Users/Mallorca/Desktop/PDFSafeFolder/TestPDF.pdf", Quality:= _
<br /> xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
<br />OpenAfterPublish:=False
<br />End Sub
<br />
<br />Trotzdem müsste ich noch eine Erweiterung haben. Ich benötige,
<br />1. das bei jedem Click eine neue Datei erzeugt wird und nicht, wie jetzt, die alte überschrieben wird. z.B.TestPDF1; TestPDF2........ und somit
<br />2. das sich der DateiName auf eine 2 bestimmte Zellen der Seite bezieht. z.B. Hans Mueller_BFF1.pdf
<br />(die Zellen sind H3 und J3)
<br />Hintergrund ist, es sollen Notenblätter für Schüler und Klassen abgespeichert werden.
<br />
<br />Kannst du helfen, wie ich den Code anpassen müsste?
<br />Viele Grüße
<br />Andreas
<br />

Filename:="C:\Users\Mallorca\Schreibtisch\AuswertungPDF.pdf"

Laufwerk C:\Users\ auf einem Mac? Ich denke mal das kannst Du komplett vergessen.
<br />Kuck mal hier:
https://macexcel.com/examples/mailpdf/makemailpdf/index.html
<br />Andreas.
<br />

Hallo Andreas,
<br />hat perfekt geklappt.
<br />Herzlichen Dank
<br />Viele Grüße
<br />Andreas
<br />

Hallo Andreas,
<br />du musst bei den benannten Argumenten überall den Typ vorstellen oder überall weglassen.
<br />Also entweder:
<br />

ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\claus\Desktop\Prognose.pdf"

oder:
<br />

ThisWorkbook.ExportAsFixedFormat xlTypePDF, _

"C:\Users\claus\Desktop\Prognose.pdf"

Edit: Mit ThisWorkbook speicherst du die komplette Mappe. Wenn du nur ein Blatt als .pdf speichern möchtest, beziehe dich nur auf das Blatt.
<br />Claus
<br />

<br />