|
Hallo zusammen
Ich unerfahrener Makro Banause habe heute zum ersten Mal einen Marko probiert zu erstellen. Leider komme ich trotz Internetrecherche auf keinen grünen Zweig. Ich wäre euch sehr dankbar, wenn mir jemand dabei behilflich sein könnte.
Das Ziel wäre es wie im Titel beschrieben, einen Makro zu erstellen, bei welchen man alle Arbeitsblätter auf einen Knopfdruck in PDF exportieren und im gewünschten Ablageort speichern könnte. Cool wäre es noch, wenn die PDFs dann auch noch den gewünschten Namen aus einer Zellen übernehmen würden.
Mit Hilfe vom Internet bin ich fangs zum folgenden Code gekommen:
Sub MakroX()
Sheets(Array("B500B_F", "B500C", "B500C_F", "ACIGRIP362")).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Alexander.Auer\Desktop\Preislisten - NEU\MARKO-Speicher Test\Presilisten_Tool_V2_MAKRO_2.pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub
 Ich bin dankbar für jede Idee oder sonstigen Anstoss.
Besten Dank und Gruss
Alex
|