Als Antwort auf diesen Beitrag
Mahlzeit, Hans-Georg!
Die 2 Blätter konnte ich auch noch selbst anlegen.
Dein Makro 1 hab ich etwas umgebaut, überflüssiges raus und ne Dateiprüfung mit reingenommen. Ich vermute nämlich (und das kann uns auch eine Beispieldatei nicht beweisen), dass dein Pfad nicht in Ordnung ist und damit die pdf nicht erstellt werden kann.
Probier mal dieses Makro:
Private Sub CommandButton3_Click()
Dim Rchn_sht As Worksheet
'Sheets("Altmetalle").Select 'überflüssig
'Range("F16").Select 'überflüssig
Dim strFileName As String
Pfad = "C:\MGD Recycling\Rechnungen\Ankauf Schrott\)" & Format(Date, "yyyy") ' Jahreszahl direkt vom Tagesdatum abgeleitet
If Dir(Pfad, vbDirectory) = "" Then 'erst prüfen, dann drucken + pdf
MsgBox Pfad & " existiert nicht, bitte prüfen!", vbCritical + vbOKOnly
Exit Sub
End If
Set Rchn_sht = Sheets("Rechnung")
Rchn_sht.PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
Datei = Sheets("Altmetalle").Range("DU93").Value & ".pdf"
strFileName = Pfad & "\" & Datei
Rchn_sht.ExportAsFixedFormat xlTypePDF, strFileName, , , , , , 0
End Sub
Gruß, MCO