habe einen Code in dem der User den Zielort auswählen kann, wo die Excel Datei als PDF gespeichert wird, logischerweise werden Dateien mit dem gleichen Namen nicht gespeichert, das Problem ist, dass bis dato das dem User nicht ersichtlich wird, dass er den Dateinamen umändern muss.
Wäre sehr dankbar wenn mir da jemand behilflich sein kann.
Private Sub Button_SAVE_Click()
On Error GoTo err_fehler1 --> Habe es damit versucht, aber der Fehler kommt immer...
Dim strName As String
Dim strDate As String
Dim response As Variant
Dim question As Variant
Dim sPath
'format date YYYY-MM-DD
strDate = Worksheets("Verification Form").Range("Datum").Value
strDate = Format(strDate, "yyyy-mm-dd")
' Aktiviert die zu speichernden Sheets -> die anderen ausblenden
'Bei Klick in die Checkboxen des Formulars PDF_ALL
If CheckBox_Verification = False Then '---Verification Form
Worksheets("Verification Form").Visible = False
Else: Worksheets("Verification Form").Visible = True
End If
If Checkbox_Verification_Details = False Then '--- Verification Form Details
Worksheets("Verification Form Details").Visible = False
Else: Worksheets("Verification Form Details").Visible = True
End If
' Dateibezeichner: Datum_R@R_Lieferant
strName = strDate & "_R@R_" & "_" & Worksheets("Verification Form").Range("SupplierName"). _
Value
' Speichern des R@R als PDF mit dem Dateibezeichner
sPath = Application.GetSaveAsFilename(InitialFileName:=Environ("USERPROFILE") & "\Documents\" _
_
& strName, _
FileFilter:="PDF-Datei (*.pdf),*.pdf")
question = MsgBox("Do you want to see the saved pages?", vbYesNo + vbInformation)
If question = vbYes Then
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:= _
sPath, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
' Rückmeldung dass Speichern erfolgreich
response = MsgBox("The File was sucessfull saved", vbOKOnly + vbInformation)
Else
ThisWorkbook.ExportAsFixedFormat xlTypePDF, Filename:= _
sPath, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
' Rückmeldung dass Speichern erfolgreich
response = MsgBox("The File was sucessfull saved", vbOKOnly + vbInformation)
End If
PDF_ALL.Hide ' Ausblenden des Dialogs "Speichern/Drucken"
'-----Aktiviert beim Beenden des Dialogs wieder alle relevanten Sheets
Worksheets("Verification Form").Visible = True
Worksheets("Verification Form Details").Visible = True
Worksheets("Questionnaire").Visible = True
Worksheets("Calculation").Visible = True
Worksheets("Action Log").Visible = True
Worksheets("Introduction").Visible = True 'RB: nach dem Druck wieder einblenden
Worksheets("Calc Example").Visible = True 'RB: nach dem Druck wieder einblenden
'Go back to start page
Sheets("Verification Form").Select
Range("D3").Select
err_fehler1:
MsgBox "Error-Code: err_code_1 " & vbCrLf & "Error no.: " & Err.Number & _
vbCrLf & "Error description: " & Err.Description
End Sub
Sollte ich da ggf noch andere Abfragen machen? ( als zusatz) LG Nati