" Dim i As Long, so As Object Sheets("Udskrift").Range("A:A").ClearContents i = 5 For Each so In Sheets i = i + 1 Sheets("Udskrift").Cells(i, 2).Value = so.Name Sheets("Udskrift").Cells(i, 3).Value = so.Range("H10") Sheets("Udskrift").Cells(i, 4).Value = so.Range("H11") Sheets("Udskrift").Cells(i, 5).Value = so.Range("H12") Next "
Men vil gerne have at den ikke bliver brugt på mine ark: "Master", "Menu", "Udskrift" og "Start"
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.