Hallo Zusammen,
zunächst einmal recht herzlichen Dank Torsten, hatte die letzte Nachricht von dir nicht mehr gesehen.
Ich brauche noch einmal Hilfe, im Grunde nicht viel nur eine Ergänzung. Und zwar hätte ich es gerne wenn beim Drücken auf mein Marko neben der PDF auch eine Kopie der Excel Datei mit gespeichert wird und zwar ebenfalls wie die PDF mit der Möglichkeit eine Speicherort Vorgabe und dem erzeugen des Namens aus den Feldern innerhalb der Arbeitsblätter. Ich hab schon ein paar Sachen selbst probiert, zerschieße mir dabei aber jedes mal mein PDF Makro... oder es passiert schlich gar nichts... *seufz* die Tips im Interwebz sind zahlreich, aber oft schwierig umzusetzen oder beruhen einfach auf einem anderen Aufbau...
Hier noch einmal der aktuelle Code:
Option Explicit
Public Sub Save_As_PDF()
Dim i As Integer, PDFindex As Integer
Dim strFilePDF As String
With Application.FileDialog(msoFileDialogSaveAs)
PDFindex = 0
For i = 1 To .Filters.Count
If InStr(VBA.UCase(.Filters(i).Description), "PDF") > 0 Then PDFindex = i
Next
.Title = "PDF"
'Speicherort-Abfrage und erzeugung des Dateinamens aus Feldern der Excel-Datei.
.InitialFileName = "K:\" & "NPL" & Space(1) & Range("Daten!B4") & Space(1) & Range("Daten!B2") & Space(1) & Range("Daten!B3") & Space(1) & Format(Date, "YYYY-MM-DD")
.FilterIndex = PDFindex
If .Show Then
On Error GoTo Fehler
'Hier wird eine PDF aus einem bestimmten Bereich eines bestimmten Tabellenblatt erzeugt.
Sheets("Ausgabe").Range("A1:E86").ExportAsFixedFormat Type:=xlTypePDF, Filename:=.SelectedItems(1), _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, Openafterpublish:=True
Fehler:
With Err
Select Case .Number
Case 0 'Alles OK
Case -2147018887
If MsgBox(strFilePDF & "Datei noch geöffnet, bitte schließen.", _
vbInformation + vbOKCancel, _
"Fehler") = vbOK Then
Resume
End If
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End If
End With
End Sub
Wäre schön wenn man mir da Jemand die Excel Line vernünftig reinbastel könnte.
Beste Grüße
J4it
|