Druckbereich in neuer Datei (.xls) speichern
20.02.2014 20:08:51
schluk5
Ich nutze folgenden Code um meinen Druckbereich als Pdf zu exportieren.
Private Sub CommandButton1_Click()
Dim varPath As Variant
varPath = Application.GetSaveAsFilename( _
InitialFileName:=ThisWorkbook.Path & "\" & ActiveSheet.Name, _
FileFilter:="PDF(*.pdf), *.pdf", _
Title:="Speichern als PDF")
If Not varPath = False Then
ActiveSheet.ExportAsFixedFormat 0, varPath, _
OpenAfterPublish:=True
End If
End Sub
Das funktioniert wunderbar.
Ich schaffe es nun leider nicht, dies so umzubauen, dass ich einen bestimmten Zellbreich (z.B. den Druckbereich) in einer neuen Datei (.xls) abspeichern kann.
Kann mir da jemand weiterhelfen?
Viele Gruesse,
schluk5