Supportnet / Forum / Tabellenkalkulation
Druckbereich einbinden
Frage
Hallo Excelfreunde !
Gibt es hierfür eine Lösung ?
Weißt jemand wie ich den Druckbereich im folgenden Makro einbinden kann?
Das Makro kopiert so wie es jetzt ist, das aktuelle Tabellenblatt, also auch die Buttons an der Seite umd meine Kommentare.
[code]Sub Blatt_Speichern()
Dim strDatei As String
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "D:\"
.Title = "Dateiauswahl"
.ButtonName = "Speichern..."
.InitialView = msoFileDialogViewDetails
If .Show = -1 Then
strDatei = .SelectedItems(1)
Else
MsgBox "Es wurde kein Dateiname angegeben!"
Exit Sub
End If
End With
Application.ScreenUpdating = False
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=strDatei
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End Sub[/code]
Hat jemand eine Idee ob das geht und wenn ja - Wie ?
Einstweilen herzlichen Dank an alle, die sich für mich bemühen.
MfG Willy.K