Flytte ark til ny projektmappe med formler

Prøv at anbringe denne kode i arket "Årsopgørelse" - kan aktiveres fra selve arket med Alt+F8. Er afprøvet med 2003-versionen.

Sub KopierÅrsopgørelse()
    Sheets("Årsopgørelse").Select
    Sheets("Årsopgørelse").Copy
End Sub

Kigger på det, men  er lige blevet overhalet af en fødsel :-)

Så til lykke ...

Så er jeg ved at være ovenvande igen!

Jeg kan ikke få det til at virke. Hver gang vil funktionerne henvise til projektmappen Stamdata!

Den bemærkning havde jeg desværre misforstået - beklager...

Skal se, om jeg kan finde på noget bedre.

Alternativ:

Rem VBA-koden anbringes i KildeFilen
Rem ================================
Rem Begge filer skal være åbne
Rem ==========================

Rem Const kan tilpasses
Rem =====================
Const område = "A1:D5"      'Området for celler i Arket
Const Kilde = "Kilde.xls"    'Navn på KildeFil
Const Mål = "Mål.xls"        'Navn på Målfil
Sub KopierÅrsopgørelse()
Dim adresse
    Application.ScreenUpdating = False
   
    Range(område).Select
   
    For Each cc In Selection.Cells
        If cc <> "" Then
            adresse = cc.Address
            With Workbooks(Mål).Sheets("Årsopgørelse")
                With .Range(adresse)
Rem Hvis der er formel - overfør denne - ellers værdi
                    If cc.HasFormula = True Then
                        .Formula = cc.Formula
                    Else
                        .Value = cc.Value
                    End If
                   
Rem Overfør diverse formater
                    .Font.Name = cc.Font.Name
                    .Font.Size = cc.Font.Size
                    .Font.Bold = cc.Font.Bold
                    .Font.Italic = cc.Font.Italic
                    .Font.ColorIndex = cc.Font.ColorIndex
                    .Interior.ColorIndex = cc.Interior.ColorIndex
                    .Borders.LineStyle = cc.Borders.LineStyle
                End With
            End With
        End If
        Workbooks(Kilde).Activate
    Next
   
    Application.CutCopyMode = False
    MsgBox ("Kopiering afsluttet")
   
    Workbooks(Mål).Activate
End Sub

supertekst> Jeg ved godt den er meget gammel, men jeg håber vi kan genåbne spørgsmålet!

Jeg har prøvet at bruge dit forslag, men får en fejl i:

With Workbooks(Mål).Sheets("Årsopgørelse")

Jeg har prøvet at ændre "Mål" til "Kilde" (Synes det ser ud som om der brude stå Kilde)!

Det giver heller ikke det ønskede resultat.

Makroen køres fra "Kilden" og skal kopier arket "Årsopgørelse" over i "Mål" og skal beholde formlerne. Dog med kæder til arket Stamdata i "Mål".

Lukket og forsøgt igen i spørgsmål: http://www.eksperten.dk/spm/852975