VBA - Einzelnes Tabellenblatt als pdf speichern

[Ubi5]

Hallo, vielleicht kann jemand mir bitte weiterhelfen.

Mit tieferstehenden Makro wird meine erstellte Rechnung als pdf.Datei abgespeichert.
Die Tabelle heißt "Vorlage".
Soweit so gut.
Ich möchte aber gerne die Datei nicht nur als Vorlage sondern auch den Namen sowie die RNr. abgespeichert haben.
Das gelingt mir leider nicht.
Der Name ist auf Zelle A13 und die RNr. auf A10

Sub PDF_speichern()
'Modifiziert
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Ubald\Desktop\" & ActiveSheet.Name & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False
 
End Sub

Danke im Voraus.

Lg Ubi5

[RPP63]

Moin!
Beantworte Dir die Frage doch einfach selbst:
Was muss in dieser Stringverkettung geändert werden?

PHP-Code:

Filename:="C:\Users\Ubald\Desktop\" & ActiveSheet.Name & ".pdf" 


Übrigens brauchst Du & ".pdf" nicht mitzugeben!
Dateityp und Endung wird mittels Type:=xlTypePDF festgelegt.

Gruß Ralf

[Ubi5]

Hallo Ralf,

habe es geschafft - hätte aber noch eine Änderung gerne - und zwar statt "-2025" 
"/2025" dies nimmt er aber nicht an.

Sub PDF_speichern()
'Modifiziert
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Muster\Desktop\" & ActiveSheet.Name & " " & Range("A13") & " " & "RNr." & Range("A10") & "-2025" & " " & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False

End Sub


Lg Ubi5

[RPP63]

Du als alter Hase solltest doch wissen, dass Dateinamen nicht alle Zeichen akzeptieren.
Zur Auffrischung:
Welche Zeichen sind in Dateinamen nicht erlaubt?
Dass & ".pdf" überflüssig ist, hast Du geflissentlich überlesen.
Ist zwar nicht funktionsentscheidend, aber redundant!

[Ubi5]

Danke Ralf!