Sub PDF_Speichern_unter()
Dim DateiName As String, HauptOrdner As String, DateiOrdner As String
With ThisWorkbook.Sheets("Proforma")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Ordnerauswahl"
.InitialFileName = "C:\Users\"
If .Show = -1 Then
HauptOrdner = .SelectedItems(1)
End If
End With
If HauptOrdner <> "" Then
DateiOrdner = .Range("A3")
If Dir(HauptOrdner & DateiOrdner & "/nul") = "" And DateiOrdner <> "" Then
MkDir HauptOrdner & "\" & DateiOrdner
End If
DateiName = HauptOrdner & "\" & DateiOrdner & "\" & .Range("A3") & "-" & .Range("C9") & ".pdf"
.Range("C9") = .Range("C9") + 1
.Range("A1:F35").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End If
End With
End Sub