Errorhandler soll nur bei Error ausgeführt werden
29.08.2018 10:31:51
Marco
ich habe ein Problem mit dem Errorhandler:
Wenn der Dateiname nicht korrekt ist (NV), dann soll über den Errorhandler ein alternativer Dateiname genutzt werden. Das funktioniert auch. Aber wenn der Dateinahme korrekt ist, dann wird zusätzlich der alternative Dateiname "im Fenster speichern" genutzt.
Wie wird der Errorhandler nur ausgeführt, wenn tatsächlich ein Error vorliegt.
Danke für Eure Hilfe.
Marco
Sub PDF_erstellen
Dim neuerDateiname As String
On Error GoTo errorhandler4
neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & Sheets("eingaben").Range("k32") _
& _
".pdf", "Adobe PDF-Dateien (*.pdf),*.pdf")
errorhandler4: neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "Speichern ohne _
korrekten Namen" & _
".pdf", "Adobe PDF-Dateien (*.pdf),*.pdf")
If Sheets("übers.").Range("a22").Value = 1 Then
Sheets(Array("Deckblatt", "Bereiche", "Notizen", "Erg.", "Bilder", "Maßn.")).Copy
Else
Sheets(Array("Deckblatt", "Bereiche", "Notizen", "Erg.", "Maßn.")).Copy
End If
With ActiveWorkbook
.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=neuerDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
.Close False
End With
End Sub