ich habe da ein vieleicht kleines Problemm, siehe Makro.
Option Explicit
Sub Speichern()
Dim FileStr As String
Dim WS As Worksheet
Dim SaveOK As Boolean
On Error GoTo ErrHandle
'Zielpfad einlesen
FileStr = Worksheets("Eingabe").Range("A17")
'Zielpfad mit ":\" am Ende
If Right(FileStr, 1) ":\" Then FileStr = FileStr & ":\"
'Dateinamen anhängen
FileStr = FileStr & Worksheets("Eingabe").Range("B17")
Worksheets("SR-Abrechnung").Copy
Set WS = ActiveSheet
WS.Cells.Delete
'Druckbereich der SR-Abrechnung wird kopiert
ThisWorkbook.Worksheets("SR-Abrechnung").Range("A1:Y80").Copy
'oder komplettes Blatt wird kopiert...
'ThisWorkbook.Worksheets("SR-Abrechnung").Range(Worksheets("SR-Abrechnung").PageSetup. _
PrintArea).Copy WS.Cells(1, 1)
WS.Parent.SaveAs FileStr
SaveOK = WS.Parent.Saved
WS.Parent.Close False
Ende:
If SaveOK Then
MsgBox "Speichern erfolgreich"
Else
MsgBox "Speichern gescheitert!", vbCritical
End If
Exit Sub
ErrHandle:
On Error Resume Next
MsgBox Err.Number & vbLf & Err.Description
Err.Clear
WS.Parent.Close False
GoTo Ende
End Sub
jetzt habe ich das Problemm das er m ir eine neue Datei aufmacht, mit dem Reiter SR-Abrechnung, aber ohne Inhalt was in dem Orginal drin steht.Mein wunsch ist das er mir das Tabellenblatt "SR-Abrechnung" von Zeile A1:Y80 (entspricht zwei DinA4 Seiten) als neue Exceldateispeichert ohne die Formel dort drin sonder nur die Werte.
Und als Speicherpfad aus TB "Eingabe" A17 (Laufwerk)und aus B17 (Dateinamen) nimmt.
wo habe ich den fehler gemacht.
Ach der bereich im TB "SR-Abrechnung" (A1:Y80) ist ein druckbereich.
würde mich sehr freuen wenn mir da jemand helfen könnte