01.10.2018, 17:05
Hallo zusammen,
folgenden Code habe ich um meine Blätter in eine neue Arbeitsmappe zu kopieren.
Ich möchte aber lediglich alle Werte und Formate übernehmen und keine Formeln oder Namen (Namens-Manager).
So ganz funktioniert es noch nicht. Erkennt jemand den Fehler?
Danke und VG
folgenden Code habe ich um meine Blätter in eine neue Arbeitsmappe zu kopieren.
Code:
Sub kopieren()
Dim strName$
strName = Worksheets("PickUp").Range("SaveAsMonat").Value
Application.DisplayAlerts = False
On Error GoTo Fehler:
Worksheets(Array("PickUp", "Auswertung")).Copy
ActiveWorkbook.SaveAs _
ThisWorkbook.Path & "\" & strName & " " & Format(Date, "DD-MM-YYYY") & ".xlsx", FileFormat:=51
Exit Sub
Fehler:
Application.DisplayAlerts = True
MsgBox "Ein Fehler ist aufgetreten!" & vbNewLine & _
"Fehler Nummer: " & Err.Number & vbNewLine & _
Err.Description
End Sub
Ich möchte aber lediglich alle Werte und Formate übernehmen und keine Formeln oder Namen (Namens-Manager).
So ganz funktioniert es noch nicht. Erkennt jemand den Fehler?
Danke und VG