Sub Makro1() NR = Val(Replace(ActiveWorkbook.Name, "Mappe", "")) - 1 [A1].FormulaR1C1 = "='" & ThisWorkbook.Path & "/" & "[Mappe" & NR & ".xls]Ark1'!R1C2" End Sub
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.