Ist es möglich das diese Formel so funzt das sie einen festen dateinamen + Aktuelles Datum als sicherung nimmt..!!
(z.b. sicherung01.08.2002 oder so..!!)
Sub Blatt_kopieren()
Sheets(2).Range("H1:AJ411").CopyPicture _
Appearance:=xlScreen, _
Format:=xlPicture
Sheets(4).Paste
Dim wksQuell As Worksheet
Dim wkbQuell As Workbook
Dim wksZiel As Worksheet
Dim wkbZiel As Workbook
Set wkbQuell = ActiveWorkbook
Set wksQuell = ActiveSheet
'Das Blatt wird ohne Zielangabe
'kopiert, eine neue Datei entseht
wksQuell.Copy
Set wkbZiel = ActiveWorkbook
Set wksZiel = ActiveSheet
wksZiel.Cells(1, 1) = "Hallo"
wkbZiel.Close savechanges:=True
'Am Ende nicht vergessen den Speicher wieder frei zu geben!
Set wkbZiel = Nothing
Set wksZiel = Nothing
Set wkbQuell = Nothing
Set wksQuell = Nothing
End Sub
Mfg Uwe