Makro_Speichern ohne Windowsnachricht zu bestätige
23.05.2017 14:24:43
Paul
ich habe folgenden Befehl zum speichern meines Berichtes.
Jetzt muss ich das immer noch in Windows bestätigen. Kann diese Bestätigung auch gleichzeitig durchgeführt werden ohne, dass ich das explizit bestätigen muss?
Gruß
Sub speichern2()
Dim Ab As String
Ab = Worksheets("Kosten_Pivot").Range("L12").Value
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 25
.InitialFileName = "L:\Bericht_Export\" & Ab & ".pdf"
If .Show Then Worksheets("Bericht_Standard").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=.SelectedItems(1), Quality:=xlQualityhigh, _
IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End With
End Sub
Anzeige