naam nieuw werkblad aanpassen in macro

[mike frens]

Goedenavond,

Ik wil dmv een macro een nieuw werkblad toevoegen en als naam voor dit werkblad een automatisch oplopend volgnummer gebruiken uit een cel op een ander werkblad.

Als ik start met de macro opname, dan doe ik:

blad toevoegen (dit wordt dan blad1)
selecteer het automatische nummer in de cel
hernoem blad1 naar het automatische nummer in de cel

Dit werkt prima

Echter als ik het een tweede keer doe, dan voegt excel netjes een blad toe, maar deze heet blad2. Ik krijg met mijn macro dan verder een foutmelding omdat hij blad1 wil hernoemen en niet blad2.

Heeft iemand hier een slimmigheidje voor?


mvg,


mike

 

[Breuk132]

Probeer dit eens.

Sub blad_hernoemen()

sheets.add
with activesheet
.name = verwijzing naar cel met naam
end with

end sub

 

[mike frens]

Hallo Jelte,

Moet ik dit in de macro toevoegen direct na het aanmaken van het blad?

ik ga het vanavond proberen, bedankt alvast!


Mike

 

[mike frens]

Hallo Jelte,

ik kom niet helemaal uit de module. hoe omschrijving ik naar de verwijzing naar cel met naam.

het werkblad is boekingsformulier 10 en de cel alhier e9.

. is name = boekingsformulier!$e$9 werkt niet.

wat wel?

thanks,


Mike

 

[Roncancio]

Sub blad_hernoemen()

Sheets.Add
ActiveSheet.Name = Worksheets("Boekingsformulier").Range("E9").Value

End Sub

Met vriendelijke groet,


Roncancio

 

[snb]

Sub nieuw()
  With Sheets.Add
      .Name = [Boekingsformulier!E9]
  end with
  [Boekingsformulier!E9]=[Boekingsformulier!E9].value+1
End Sub