Hallo Zusammen

ich habe folgendes Problem, ich möchte via macro ein Formular abspeichern und in ein PDF umwandel, Die Dateiname nimmt es aus zwei Zellen. Soweit klappt es auch, nur wenn in der eine Zelle ein Sonderzeichen ist das von Windows nicht erlaubt ist als Dateiname dann kann er das Macro nicht ausführen.
Mein Code sieht so aus:
Sub PDF_Speichern_1()
Const DateiPfad = "C:\Rechnungen\"
Dim DateiName As String
DateiName = DateiPfad & Range("W10") & Range("AB18") & ".pdf" ' Kunde + Rechnungsnr
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
DateiName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False

End Sub

Ist es möglich dass so einzustellen dass wenn ein Sonderzeichen vorhanden ist, dies einfach weggelassen wird beim abspeichern der Datei?

Für eure Hilfe bedanke ich mich recht herzlich.