Hallo Liebe Excel Anwender,
Ich habe ein Problem mit einem Speicher Befehl für ein Excel Datenblatt, das aus einer Arbeitsmappe separat benannt und in einem Ordner gespeichert werden soll.
Den unten aufgeführten Code hatte ich mir vor einiger Zeit mit viel Internetsuche hier im Forum zusammengeschrieben.
Er funktioniert sehr gut, wenn ich nur wie im Code erkennbar, ein PDF benennen und in einem Ordner Abspeichern möchte. Jetzt benötige ich für eine andere Datei, dass er anstatt einem PDF Ausdruck eine Excel Datei Speichert.
Kann mir einer Helfen diesen Code so anzupassen?
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim Ord As String
Dim pdfDateiName As String
Dim pdfname As Variant
Sheets("QAM Formblatt").Select
Ord = "X:\Managementsysteme\Qualitätsmanagement\Extern\A Reklamationsmanagement\QAMs 2020\QAM-" & Range("AA7").Value & "-" & Format(Date, "YY")
If Dir(Ord, vbDirectory) = "" Then
MkDir Ord
End If
pdfDateiName = "QAM-" & Range("AA7").Value & "-" & Format(Date, "YY") & ".pdf"
pdfname = Ord & "\" & pdfDateiName
If pdfname False Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
Else
Exit Sub
End If
Application.DisplayAlerts = True
Application.ScreenUpdating = True