Arkivere ark

Dette virker for mig:

Sub Arkivere
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Name = "lønarkiv" & Range("A1").Value
    ActiveWorkbook.SaveAs Filename:="C:\din\placering\af\filen\filnavn.xls"


Sidste linie kan du undlade, hvis du ikke vil have den til at gemme filen som noget bestemt hver gang, eller hvis du har et felt, hvor du har perioden til at stå i, så kan du gøre følgende:

ActiveWorkbook.SaveAs Filename:="C:\din\placering\af\filen\" & Range("A3").Value & ".xls"

mangler lige at afslutte min kode med End Sub, så koden er:

Sub Arkivere
    Cells.Select
    Selection.Copy
    Workbooks.Add
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Name = "lønarkiv" & Range("A1").Value
    ActiveWorkbook.SaveAs Filename:="C:\din\placering\af\filen\" & Range("A3").Value & ".xls"
End Sub

Mange tak for svaret. Med nogle få ændringer virker det også fint for mig.

Hvis du opretter et svar kan jeg give dig pointene.

/Benneweis

super