Dim
old
As
Object
, Ziel
As
Object
, Zielpath
Dim
Spalten, spalte, Zielspalte
As
Long
Const
NewName =
"Bericht"
Zielpath = ActiveWorkbook.Path
Set
old = ActiveWorkbook.ActiveSheet
Set
Ziel = Workbooks.Add
Set
Ziel = Ziel.Sheets(1)
Application.ScreenUpdating =
False
Zielspalte = 1
With
Ziel
<span style=
"background-color:#1abc9c"
> old.Range.Selection.Copy</span>
Application.CutCopyMode =
False
Application.ScreenUpdating =
True
Zielpath = Zielpath &
"\" & NewName & "
_
" & Format(Now(), "
DD.MM.YYYY
") & "
.xlsx"
.SaveAs Zielpath
End
With
Application.CutCopyMode =
False
Application.ScreenUpdating =
True
Call
senden
End
Sub