habe eine Bitte, ich habe ein Makro zum erstellen von pdf, das einwandfrei funktioniert. Könnte es jemand für mich umschreiben, das es eine statt pdf eine excel Datei wird?
Sub PDF_Speichern()
ThisWorkbook.Unprotect
Dim pdfDateiName As String
Dim pdfName As Variant
With Worksheets("Angebot")
pdfDateiName = "ÒÊÏ_" & ActiveSheet.Range("D16") & "_" & ActiveSheet.Range("D17") & ". _
pdf"
pdfName = Application.GetSaveAsFilename(InitialFileName:=pdfDateiName, FileFilter:=" _
PDFfiles, *.pdf", Title:="PDF speichern")
If TypeName(pdfName) = "String" Then
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
.Rows(1).Resize(300).EntireRow.AutoFit
.Visible = xlSheetVisible
Call .Rows(27).AutoFilter(Field:=6, Criteria1:="1")
Call .ExportAsFixedFormat(Type:=xlTypePDF, Filename:=pdfName, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True)
.Visible = xlSheetVeryHidden
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
ThisWorkbook.Protect
End If
End With
End Sub