Als Antwort auf diesen Beitrag
Hallo
Ich habe deinen Recorder Code mal von Select befreit, es geht auch ohne Select.
Und um With Klammer erweitert. Der Punkt VOR Range("HU3") bezieht diese Zellen auf das Sheet Ankauf-Verkauf
Dabei fiel mir auf, das du einen Wert aus "X3" holst. den anderen Wert aber aus "HU3"
Frage: Kann es sein das der 2. Wert aus Zelle "H3" oder "U3" geholt werden muss??
mfg Piet
Const oPfad = "C:\MGD Recycling\Rechnungen\Ankauf-Verkauf\"
Private Sub CommandButton3_Click()
Dim strFileName As String
Sheets("Rechnung").PrintOut Copies:=2, Collate:=True, IgnorePrintAreas:=False
With Sheets("Ankauf-Verkauf")
strFileName = oPfad & .Range("HU3").Text & "\" & .Range("X3").Value & ".pdf"
MsgBox strFileName '** nur zum Testen
Sheets("Rechnung").ExportAsFixedFormat Type:=xlTypePDF, Filename:=strFileName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub