Versuch es mal so:
' Tabelle als PDF Exportieren
Datei = Application.GetSaveAsFilename() If Right(Datei, 1) = "." Then Datei = Datei & "pdf"