kopiere udskriftsområder vha. makro ??

Du kan jo teste denne makro. I den engelske version hedder det Print_Area og i den danske version hedder det sansynligvis Udskriftsområde, men kig op i navnefeltet.

Sub tester()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim wk As Workbook
Set wk = Workbooks.Add
Dim i As Integer
i = 1
    For Each ws1 In ThisWorkbook.Worksheets
        ws1.Range("Print_Area").Copy
        Set ws2 = wk.Sheets.Add
        ws2.Name = ws1.Name
        ws2.Activate
        Range("a1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    Next
End Sub

Kunne du bruge det Laurberg, eller skal det laves om?

Nej, den siger : Kørselsfejl  "1404"
                metoden `range for object worksheet milykkedes

når man så kommer i fejlfinding er det udtrykket "udskriftsområde" den markerer som fejl

Jeg har lige testet den i en dansk version.
Den kører ganske glimrende, men du skal ikke ændre Print_Area til udskriftsområde. excel bruger åbenbart navnet Print_Area internt.

Ps. du SKAL hve defineret et udskriftområde først på ALLE ark.

Hej Bak

Jeg havde glemt at jeg har en del kolonner der er skjult, så jeg er løbet ind i problemer der, men du får dine point , da du har givet et godt svar !

Det kan klares med en lille modifikation, så skjulte celler ikke kopieres med:

Sub tester()
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim wk As Workbook
Set wk = Workbooks.Add
Dim i As Integer
i = 1
    For Each ws1 In ThisWorkbook.Worksheets
        ws1.Range("Print_Area").SpecialCells(xlCellTypeVisible).Copy
        Set ws2 = wk.Sheets.Add
        ws2.Name = ws1.Name
        ws2.Activate
        Range("a1").PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=False
    Next
End Sub

Hej Bak

Den kopiere stadig de skjulte kolonner ????

Jeg er lige lidt blank...
SpecialCells(xlCellTypeVisible).Copy
gør jo netop at kun synlige celler kopieres

Hej Bak

den siger igen :Kørselsfejl  "1404"
                metoden `range for object worksheet milykkedes

i hvilken linie ?

Hej Bak

Hvis det er linien i makroen du henviser til , så er er denne:
ws1.Range("Print_Area").SpecialCells(xlCellTypeVisible).Copy

Emailadr, så sender jeg lige et eksempel

pkj@tvilum.com