Ark fane navnx2

Hvis navnet altid står i D6 kan en lille macro læse navnet og navngive arket:

Sheets(ActiveSheet.Name).Name = Range("D6")

Denne makro navngiver alle faner i arket på en gang efter det der står i d6

Sub test()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
  ws.Name = ws.Range("D6")
Next
End Sub

mfj1 > hvad bruger du disse filer til ?

bak>>Er der ikke et problem med denne makro?
Sådan som jeg læser koden, så tager den D6 som input og navngiver alle fanebladene efter det, dvs. at flere faneblade kommer til at hedde det samme?

Hej bak!
Hver fil repræsenter et firma og hver fil består af 10-15 Ark og hver Ark repræsenter en medarbejder, DERFOR har hvert ark forskelligt navn.

Filen bruges til at registre de timer den enkelte medarbejder fra det fremmede firma arbejder i løbet af ugens 7 dage.

Så navnet i D6 er forskelligt fra Ark til Ark.

Magoo2000: Nej, intet problem. ws.name = ws.range("d6") betyder at det aktuelle ark (ws) for navn efter cellen D6 i det aktuelle ark (ws.range(d6")
Den løber alle ark igennem og ws (aktuelt ark) skifter hver gang.

mfj1>> tak fordi du tilfredsstillede min nysgerrighed :-)

Hvis du vil bruge bak's makro på alle åbne ark kan du gøre sådan her:

---------

Public Sub NavngivArk()

For Each wb In Workbooks
    For Each ws In wb.Worksheets
        ws.Name = ws.Range("D6").Value
    Next ws
Next wb

End Sub
----------------

Hvis du har mod på at prøve så hent
http://tommy.bak.homepage.dk/opretflere.xls

På 1. ark kan du skrive firmaer og deres medarbejdere ind (1 kolonne pr. firma)
Ark 2 skulle være en skabelon som du selv laver. min er kun for at teste.
Makroen opretter en mappe pr. firma og indsætter et navngivet ark (som skabelonarket) pr. medarbejder i firmaet. (navnet kommer også i D6)
Der vil være et eksta ark pr mappe med firmanavnet.
Hvis du fjerner de  '  der er sat i koden bliver mapperne automatisk gemt og lukket.
En mappe kan desværre kun navngives ved at gemme.
Hvis du ikke ønsker de bliver lukket så fjern linien med Close.
Bak