Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

letzte hilfe PDF Speichern mit VBA


Betrifft: letzte hilfe PDF Speichern mit VBA von: Tina.
Geschrieben am: 30.03.2018 19:22:42

Hallo
Erst mal Danke für die erste Hilfe.
Das mit dem Recorder wusste ich nicht.
Speichert jetzt das Arbeitsblatt Reservierung als PDF !
Nur wie bekomme ich dies hin?

Reservierung + Name ( z.B. Reservierung Meier )
der Name steht im Arbeitsblatt Berechnung B3
und ändert sich immer.

Danke für eure Mühe

  

Betrifft: AW: letzte hilfe PDF Speichern mit VBA von: Hajo_Zi
Geschrieben am: 30.03.2018 19:24:11

"Reservierung " & Range("b3")

GrußformelHomepage

Beiträge von Werner, Luc, robert, J.O.Maximo und folgende lese ich nicht.


  

Betrifft: AW: letzte hilfe PDF Speichern mit VBA von: Tina.
Geschrieben am: 30.03.2018 19:40:28

Hallo Hajo_Zi

hier mal das Makro

Private Sub CommandButton5_Click()
Sheets("Reservierung").Select
    ChDir "D:\PDF"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "D:\PDF\Reserierung.pdf", Quality:=xlQualityStandard, IncludeDocProperties _
        :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub



  

Betrifft: AW: letzte hilfe PDF Speichern mit VBA von: Hajo_Zi
Geschrieben am: 30.03.2018 19:41:36

mein Vorschlag wolltest Du nicht einarbeiten.
Einen weiteren habe ich nicht.

Gruß Hajo


  

Betrifft: AW: letzte hilfe PDF Speichern mit VBA von: Tina.
Geschrieben am: 30.03.2018 19:45:06

Wollte ich doch, nur wo.
Habe Eingefügt und nichts ging mehr.

Aber Danke


  

Betrifft: AW: letzte hilfe PDF Speichern mit VBA von: Daniel
Geschrieben am: 30.03.2018 20:17:56

Wenn ich das richtig verstehe Hajo - dann weiß sie nur nicht, WO sie deinen Vorschlag einbauen soll ;-)

Hajo meinte:
Dort einfügen, wo du den Namen festlegst...
Das wäre bei"Filename".
Dann würde das quasi so aussehen:

Private Sub CommandButton5_Click()
  Sheets("Reservierung").Select
      ChDir "D:\PDF"
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
          "D:\PDF\Reserierung" & Range("B3") & ".pdf", Quality:=xlQualityStandard,  _
IncludeDocProperties _
          :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
  End Sub
Und dann sollte das auch klappen ;-)

MfG
Daniel


  

Betrifft: AW: letzte hilfe PDF Speichern mit VBA von: Werner
Geschrieben am: 31.03.2018 10:54:26

Hallo Tina,

Daniel hat vergessen den entsprechenden Blattnamen mit anzugeben auf der sich die Zelle B3 befindet. Außerdem würde ich auf Select verzichten.

Private Sub CommandButton5_Click()
ChDir "D:\PDF"
Sheets("Reservierung").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\PDF\Reservierung " & Sheets("Berechnung").Range("B3") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub
Einen Kommentar zu Hajo spare ich mir, bringt nichts, da ist leider Hopfen und Malz verloren und auf seine "Blacklist" habe ich es ja schon geschafft.

Gruß Werner


  

Betrifft: Daniel u. Werner -- Danke von: Tina.
Geschrieben am: 01.04.2018 18:31:58

Hallo Daniel und Werner
Danke für eure Hilfe


  

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: Werner
Geschrieben am: 01.04.2018 19:55:59




Beiträge aus dem Excel-Forum zum Thema "letzte hilfe PDF Speichern mit VBA"