Ich möchte meine Tabelle2 als pdf speichern und dabei Name und Speicherort im Dialogfeld selbst wählen - irgendwie funktioniert das nicht:
With Application.FileDialog(msoFileDialogSaveAs)
~f~.AllowMultiSelect = False
~f~.FilterIndex = 25
~f~.Title = "speichern als pdf ..."
~f~.Show
~f~If .SelectedItems.Count > 0 Then
~f~ ThisWorkbook.Worksheets("Tabelle3").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
~f~ .SelectedItems, Quality:=xlQualityStandard, IncludeDocProperties _
~f~ :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
~f~ End If
End With
Vielen Dank schon im Voraus!
Manuel