So wie dieses hier, nur als PDF. Bekomme das einfach nicht hin
Sub Speichern_unter_einfach()
Dim strVerzeichnis As String
Dim strDateiname As String
strVerzeichnis = "C:\Users\"
strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
Range("N17") & ".xlsm", _
FileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsm), *.xlsm")
Select Case strDateiname
Case False
Exit Sub
Case Else
ThisWorkbook.SaveAs Filename:=strDateiname
End Select
End Sub
Vielen Dank im vorraus