Excel - duplisere et ark

[Moby]

Har et ark (Ark1) med formateringer/kantlinjer formler som jeg skal
duplisere til 30 nye like ark som skal beholde formateringer og helst
kopieres til høyre for ark 1 slik at arkene får stigende rekkefølge 1 -31
fra venstre mot høyre....
Kjenner til Ctrl og dra arket til nytt ark men kan jeg ikke kopiere alle
arkene i en operasjon til 30 nye ark identisk med ark 1? og må jeg sette inn
nye ark først ett og ett?

- RE

[Harald Staff]

Du kan merke to ark og kopiere disse, så merke de fire og kopiere, ... Men
kjedelig arbeid går bedre via litt VBA:

Sub Duplisere()
Dim L As Long
Dim oSht As Worksheet
Set oSht = Sheets(1)
For L = 1 To 30
oSht.Copy After:=oSht
Next
On Error Resume Next
For L = 1 To Worksheets.Count
Sheets(L).Name = "Kopi" & L
Next
End Sub

HTH. Beste hilsen Harald

Post by Moby
Har et ark (Ark1) med formateringer/kantlinjer formler som jeg skal
duplisere til 30 nye like ark som skal beholde formateringer og helst
kopieres til høyre for ark 1 slik at arkene får stigende rekkefølge 1 -31
fra venstre mot høyre....
Kjenner til Ctrl og dra arket til nytt ark men kan jeg ikke kopiere alle
arkene i en operasjon til 30 nye ark identisk med ark 1? og må jeg sette inn
nye ark først ett og ett?
- RE

[Moby]

Post by Harald Staff
Du kan merke to ark og kopiere disse, så merke de fire og kopiere, ... Men
Sub Duplisere()
Dim L As Long
Dim oSht As Worksheet
Set oSht = Sheets(1)
For L = 1 To 30
oSht.Copy After:=oSht
Next
On Error Resume Next
For L = 1 To Worksheets.Count
Sheets(L).Name = "Kopi" & L
Next
End Sub
HTH. Beste hilsen Harald

Post by Moby
Har et ark (Ark1) med formateringer/kantlinjer formler som jeg skal
duplisere til 30 nye like ark som skal beholde formateringer og helst
kopieres til høyre for ark 1 slik at arkene får stigende rekkefølge 1 -31
fra venstre mot høyre....
Kjenner til Ctrl og dra arket til nytt ark men kan jeg ikke kopiere alle
arkene i en operasjon til 30 nye ark identisk med ark 1? og må jeg sette

inn

Post by Moby
nye ark først ett og ett?
- RE

OK bruker første alternativ:-) Takker!

Er det ikke på tide at MS legger inn en funksjon for å duplisere ark? Må jo
være et vanlig behov for Excel brukere?