Pfad in Makro einpflegen

Sub PDF_Datei()
Dim Dateiname As String
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 26
.Title = "Als PDF exportieren unter"
.InitialFileName = ThisWorkbook.Name
If Not .Show Then Exit Sub
Dateiname = .SelectedItems(1)
End With
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Dateiname
End Sub

Danke dir. Habe ich auch gemerkt.
<br />

Wenn ich das jetzt wie folgt mache:

Wenn ich den Code einfach mal so übernehme wie ich ihn gezeigt habe, ihn zum Test in eine neue Datei kopiere, "qwe" in A1 schreibe, dann ausführe, dann sehe ich das er als Vorgabe "Mappe1.pdf" als Dateiname generiert. Dann einfach mal auf Speichern klicken und er speichert eine Mappe1.pdf
<br />

Wenn ich das jetzt wie folgt mache:
<br />Sub PDF_Datei()
<br />Dim Dateiname As String
<br />Dateiname = InputBox("Dateiname eingeben", "Datei speichern unter", _
<br />".pdf")
<br />With Application.FileDialog(msoFileDialogSaveAs)
<br /> .FilterIndex = 26
<br /> .Title = "Als PDF exportieren unter"
<br /> .InitialFileName = ThisWorkbook.Name
<br /> If Not .Show Then Exit Sub
<br /> Dateiname = .SelectedItems(1)
<br /> End With
<br />ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dateiname, _
<br />Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
<br />OpenAfterPublish:=True
<br />End Sub
<br />Dann will er das immer als xps abspeichern und nicht als PDF. Also muss ja noch irgendwo ein Fehler sein?
<br />

Hallo Andreas

Ja Du hast schon recht: Ich habe nicht grosse Ahnung von Makros.

Ich kann die Dateien jetzt leider nicht runterladen, weil ich diese im Geschäft habe.

Wenn ich in den Exceltabellen den Inhalt aktiviere, kommt die Meldung, dass der Pfad nicht mehr existiert oder verschoben wurde.

Ich hoffe jetzt nur, dass das einfach zu lösen ist, eben weil ich kein Programmierer bin.