ich habe 5 Tabellenblätter. Mit diesem Code erzeuge ich eine einzige PDF-Datei.
Den Dateinamen übernimmt er aus der Tabelle 1 Zelle K3.
Nur möchte ich noch das er das Datum, was sich in der Zelle K4 befindet, auch dem Dateinamen hinzufügt.
Zusätzlich möchte ich zb in der Tabelle 1 in irgendeiner Zelle einen Pfad angeben, wohin er die erzeugte PDF-Datei abspeichert.
Wie muss ich den unten stehenden Code verändern?
Sub PDF()
Sheets(Array("Tabelle 2", "Tabelle 3", "Tabelle 4", "Tabelle 5")).Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Sheets("Tabelle 1").Range("K3").Value, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Sheets("Tabelle 2").Select 'Gruppierung wieder aufheben
End Sub
|