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.

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

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