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