habe versucht aus der Formel die richtigen Anweisungen für "Werte u. Formate" zuübernehmen, bekomme die Fehlermeldung Laufzeitfehler 1004.
Wo liegt der Fehler?
Mfg.Angela
Sub test1()
Dim mon As String
mon = Format(Date, "dd.mm.yyyy")
With ActiveWorkbook.ActiveSheet.Cells
.PasteSpecial Paste:=xlPasteValues ' Werte
.PasteSpecial Paste:=xlFormats ' Formate
End With
ActiveWorkbook.SaveAs "C:\Eigene Dateien\" & Cells(7, 9) & "_" & mon & ".xls"
End Sub