Zellinhalt für Dateinamen verwenden
Ralf
ich erzeuge mit folgendem Makro eine PDF Datei von einem Tabellenblatt meiner Arbeitsmappe:
Sub TabellenAlsPDF()
ActiveWorkbook.Sheets(Array("Eingabe")).Copy
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=Environ("UserProfile") & "\Desktop\test.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
ActiveWorkbook.Close Savechanges:=False
End Sub
Kann mir von den VBA Spezialisten bitte jemand helfen?
Vielen Dank im Voraus?
Gruß
Ralf
Anzeige