Einzelnes Blatt in neue Datei speichern

Guten Tag zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Neu_speichern() Dim WBN As Workbook Dim Pfad As String Dim strName As String Dim ws As Worksheet Set ws = ThisWorkbook.ActiveSheet Pfad = ThisWorkbook.Path If Right(Pfad, 1) "\" Then Pfad = Pfad & "\" strName = "Test" Set WBN = Workbooks.Add ws.Copy after:=WBN.Sheets(Sheets.Count) WBN.SaveAs Pfad & strName, 51 WBN.Close False Set WBN = Nothing Set ws = Nothing End Sub

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

Beliebteste Forumthreads (12 Monate)

Einzelnes Blatt in neue Datei speichern

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Einzelnes Blatt in neue Datei speichern

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

315 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread