Avatar billede Sandra-J Nybegynder
15. august 2014 - 14:55 Der er 1 kommentar og
1 løsning

Navngivet arknavn efter celle indhold

Hej
Jeg havde fundet en makro som fungere rigtigt fint, men kan simpelhen ikke finde den igen ... :-(

Jeg har en projektmappe med over 60 ark der skal ændres navnet efter en værdi som er i feltet Z105.

Er der nogle der kan hjælpe mig med at lave en makro til det?

Den skal gerne køre på alle aktive ark, og hvis cellen Z105 er tom, skal arket behold den nuværende værdi.

På forhånd mange tak
Avatar billede garrett Seniormester
15. august 2014 - 15:10 #1
Det kan løses sådan:

Option Explicit

Sub renameSheets()
    Dim wb As Workbook
    Dim ws As Worksheet
    Set wb = ActiveWorkbook
   
    For Each ws In wb.Worksheets
        If ws.Range("Z105").Value <> "" Then
            ws.Name = ws.Range("Z105").Value
        End If
    Next ws

    Set wb = Nothing
    Set ws = Nothing
End Sub
Avatar billede Sandra-J Nybegynder
15. august 2014 - 15:19 #2
mange tak det var lige det jeg skulle bruge !!
:-)
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester