Public Sub udførOpdeling() traverserMappeOgKopier MsgBox "Opdeling er udført" End Sub Private Sub traverserMappeOgKopier() Dim ark As Worksheet, arkNavn As String
For Each ark In ActiveWorkbook.Sheets arkNavn = ark.Name
ark.Select ark.Copy
ActiveWorkbook.SaveAs "C:\X" & arkNavn ActiveWorkbook.Close Next ark End Sub
Det eneste der er lidt sjovt er, at alle de nye ark bliver gemt direkte på C-drevet under navnene XSheet1, XSheet2, osv. Jeg synes ellers koden ser rigtig nok ud?
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
