Makro auch als PDF abspeichern
12.06.2017 13:08:23
Pascal
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Dim strName As String
If Sheets("Hochkant").Range("H5").Value = "" Then
MsgBox "Bitte Teilenummer eingegeben!"
ElseIf Sheets("Hochkant").Range("AQ6").Value = "" Then
MsgBox "Bitte mindestens ein Stichwort eingeben! (Stichwortfeld Nr.1)"
Else
Verzeichnis = "K:\PUBLIC_KBM\QUALITY INFORMATION\Prüfberichte\Inspectionreports\" 'Verzeichnis- _
Vorschlag
Datei = Left(Range("H5"), 5) & "_" & Mid(Range("H5"), 6, 4) & "_" & Right(Range("H5"), 1) & " _
_Inspectionreport_" & Range("X5") & ActiveSheet.Range("AQ6").Value & ActiveSheet.Range("AQ7").Value & ActiveSheet.Range("AQ8").Value & ActiveSheet.Range("AQ9").Value & ".xls" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy 'Es wurde im Dialog auf Speichern _
gedrückt
Application.Workbooks(Datei).Close True
End If
End Sub
Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel _
Dateien (*.xls),*.xls*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
Ich benutze diesen VBA Code um eine Excel Datei in einem bestimmten Pfad unter bestimmten Namen zu speichern. Der Code wird ausgeführt wenn ich die blaue Schaltfläche drücke.
Hier nochmal die Datei inkl. Code
https://www.herber.de/bbs/user/114211.xlsm
Kann mir jemand eine Modifizierung an der Datei bzw. an dem Code vornehmen die mir einen bestimmten Bereich auch gleichzeitig noch als PDF abspeichert?
Kleines Extra:
Breche ich den Speichervorgang ab so erscheint ein Laufzeitfehler 9. Wie bekomme ich da eine eigene Fehlermeldung statt des Fehlerfensters?
Ihr würdet mir sehr helfen, vielen dank und
beste Grüße