Moin moin zusammen, ich habe mich mit viel Google hilfe und verschiedensten Foren an einem Makro versucht. Dieses funktioniert im großen und ganzen auch nur eine sache fehlt mir, die ich nirgendwo bisher gefunden habe.
Das von mir erarbeitete:
Sub PDF()
'
' PDF Makro
'
'
Sheets("Auswertung PDF").Visible = True
Sheets("Auswertung PDF").Select
Const DateiPfad = "C:\Users\Benutzer\Desktop\Ergebnisse\"
Dim DateiName As String
DateiName = DateiPfad & Range("B5") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
ActiveWindow.SelectedSheets.Visible = False
End Sub
Was ich mir wünschen würde ist, wenn ich im Ordner "Ergebnisse" noch weitere Ordner auswählen könnte, da dort Ordner sind mit verschiedenen Jahreszahlen mit weiteren unterordnern mit Produkten.
Interresant währe aber auch, wenn es gehen würde diese auswahl automatisch wählen zu lasse wie z.b.:
C:\Users\Benutzer\Desktop\Ergebnisse\ Zelle B3 \ Zelle x4 \ Dateiname. pdf
Ist hoffentlich verständlich, was ich erreichen möchte.
Schonmal vielen dank für eure Mühen.
Mit freundlichem Gruß
Florian S.
|