ich habe ein Makro das mir das Blatt als pdf speichert, geht soweit alles bloss muss ich immer erst Bestätigen mit OK?
Was muss ich wo einfügen damit er das selbständigt tut ?
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\Lieferschein" & " " & Range("R4") _
& _
ActiveSheet.Range("AC6").Value & ".pdf", _
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End If
Range("A16").Select
Range("A16").Activate
End Sub
Für eure Hilfe besten DankGruss MaBlu